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U'ATTENDEZ-VQUS de Tremplin Micro ? qu'il vous parte des 
nouveautes que, chaque semaine, nous annoncent certains 
construcfeur$,„ mcis que nous ne verrons peut-etre jamais en 
France ? N'y comptez pas- Si I'avenir de hnformatique person- 
nel^ ne nous laisse pas indifferent*, notre objectif immediat se situe dans 
le present,, ot vous I'avez d'ailleurs parfaitement compris, il est vrai quil 
vous concerne directement puisqu'il se resume en quelques mots : vous 
older a tirer le meilleur parti possible de voire Apple actuei 

Celui-ci o le merite d'exister et vous avez lo chance de pouvoir en disposer, 
AAalheureusement r bon nombre de possesseurs d r Apple en connaissent 
encore mal le fonctionnement et, a plus forte raison, les innombrables 
possibilites. 

Tremplin Micro vous propose, dans chacun de ses numeros, un tas de peti- 
tes routines, mais elles exigent un minimum de connaissances de base. 
Helas ! trop d'amateurs bissent de cote la documentation qui accompagne 
chaque machine et qui en constitue pourtant le meilleur abc Y a-t-il la 
faute (ou negligence) du reseau de distribution ? 

Ce n'est pas certain. L'ordinateur r personnel ou non, est encore considere 
comme une sorte de botte magique, capable de se suffire a elle-meme, et 
rendant inutile tout effort intellectueL 

C'est evidemment faux, II est certes permis de rever, mais en restant rea- 
liste. Non, monsieur, votre imprimante JJ graphique rr ne va pas vous fabri- 
quer des fromoges d la suite d'un quelconque RUN et si d'aventure elle 
realise cette operation, cest evidemment porce qu'un logiciel lui fournit, 
un a un, les bits des precieux octets qui, de I'ecran de votre Apple, vont 
passer sur le papier, II arrive qu r une interface realise cette operation, ce 
qui revient au meme. 

Ne vous laissez jamais abuser par la technicite verbale d'un vendeur. Exi- 
gez une demonstration, 

Et puis, quand patiemment vous dechiffrerez les programmes de Tremplin 
Micro, ne capitulez pas devant les apparenies (et parfois reelles) 
dif f icultes . 

Plus la moisson sera longue... et plus la recolte sera bonne ! 

GUY-HACHETTE. 
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Les Lectrices et Lecteurs de Tremplin Micro 
oni beducoup aime les HISTOGRAMMES, 
DIAGRAMAAES et VISUBLOCS. 
Voici les GRAPHES 



TREMPLIN MICRO 

Le numero 5 paraitra le 3 decernbre. 
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I Ch iff res en dents de scie 

| Vous avez deja apprecie nos HISTOGRAAAAAES, DIAGRAM- 
™ MES et VISUBLOCS (respectivement preserves dans les 
numeros 1, 2 et 3 de Tremplin Micro). Voici les G RAPHES, non 
moins "parlants", mais plus classiques. 



QU'EST-CE QU'UM GRAPHE ? Reprenons 

paresseuse- 

ment la tres bonne definition qu'en donne le 
Fiammarion : «Un schema constitue par un 
ensemble de points (dits somrriets) reunis par 
des lignes (dites ores ou aretes}». 

NOMBRE DE DONNEES Nous I'avons Ii- 

mite a 12 (comme 
les mois de I'annee), mais il peut etre modifie 
suivant les besoins. Toutefois, il n'est pas sou- 
haitoble de charger demesurement ce schema. 

RESULTATS Suivant la plus gremde valeur 
rentree, les chiffres sont divises 
par 1000, par 100... ou utilises tels quels, II n'a 
pas ete prevu de vaJeurs negatives. Les nonv 
bres apparaissant en abscisses sont obtenus en 
divisant la fourchette (plus grand moins plus 
petit} par 13. Le premier et le dernier corres- 
pondent seuls a des valeurs exactes. On n'ac- 

programme* fanctionm? a 

TREAflPLIN MICRO 



corde que 3 caracteres a lo nature des donnees 
(iei, des mois) r mats le texte peut etre plus long 
lors de Ja sojsie. 

MENU l[ ©st en langage machine, ce qui per- 
met un affichage instantane, Le trace 
du grophe pourrait etre effectue a I'insu de I'uti- 
lisateur, en prolongeant I'affkhage du menu, 
mais il nous a semble amusant de montrer com- 
ment se deroule l'operation.„ assez rapide- 
ment d'ailleurs. 

FONTE DE CARACTERES Elle est limitee a 

Tapostrophe, au 
point, aux nombres,.. et aux 26 lettres 
capitaJes. 

IMPRESSION Attention ! elle est ici prevue 
avec une interface graphique 
de chez BIP, Vous devrez adapter cette partie 
du programme a vatre cas personnel. 

" ou sans carte 30 c&lonn&s. 

l«tfffHHUimaift ffl H lfivl „„„ ffaMC| „ ff|ffBViaa 



G RAPHE 



BASIC 1 



it* 

4fl 



HOME 



TEXT I NORMAL : PRINT CHR* (12) | CHR* (21) 
: SCALE= 1: R0T= B: HCQL0R= 3 

DIM W12»1>,K<I2> 
ONERR GOTO 1699 

PRINT CNR* (4VBL0AD GRAPH. MEN" : GOSUB 1150 

56 TR* = ttH : FOR I = 1 TO 10;TR* = TR$ + 11 „ " ; NEXT 

62 I 

REM ****************************** 
REM ** MENU EXPRESS ** 

REM ****************************** 



70 
80 

100 

110 
120 
130 
140 
150 
140 
170 
188 
190 

200 

210 

220 

230 

246 

250 
262 
270 
230 
290 
300 



31fl 

326 
330 

348 



TEXT : CALL 768 

GOSUB 208: IF R < 1 OR R > 6 THEN 120 
HOME 

ON R GOTO 300,870,1320,1416,1610,1740 

REM ****************************** 
REM ** PETITES ROUTINES ** 

REM ****************************** 

i 

POKE - 16368,0! WAIT - 14384,128,127: POKE - 16 

348,0:R = PEEK < - 14384) - 48: RETURN 

HOME : INVERSE : HTAB <4I - LEN (T*>> / 2: PRINT 

Tf: NORMAL : POKE 34,3: PRINT : RETURN 

HTAB l! CALL - 868: CALL - 198: HTAB (41 - LEN 

(T*>> / 2: PRINT T$: RETURN 

PRINT : PRINT CHR* (4) "CATALOG" s PRINT ; PRINT : 
PRINT : PRINT ; UTAB 20: PRINT TR$: RETURN 
POKE 49232,0: POKE 49234,0: POKE 49237,0: POKE 492 
39,0: RETURN 

■ 

REM ****************************** 
REM ** 1. SAIS1E DES DONNEES ** 
REM ****************************** 



198: PRINT " DESI REZ-UOUS 
GET R$: POKE - 14368,0 



- 868 
" " i ft 



THEN 300 

T1TRE A LIRE GRD0 [h I 



PRINT 
IF F* ■ 



THEN 300 



PRINT i VTAB 22: CALL 
LIRE UN FICHIER <0/N> 
IF R* = "N" THEN 350 
HOME : IF R* < > "0" 
GOSUB 239 
UTAB 22: CALL 
HTAB 14: INPUT 
MTAB 21 s PRINT 
HR$ (4) "READ" F$: INPUT N: 
1,0) ; INPUT NEXT 
<4)"CL0SE" Ft 
350 1% = " SAISIE DES DONNEES M : GOSUB 210 
360 VTAB 5; PRINT "<?> RENVOIS AU MENU SANS CHANGER LE 
NOM- BRE DES DONNEES DEJA SA1SIES" : PRINT s PRI 
NT "</> RENVOI E A L' ITEM PRECEDENT " 



PRINT CHRt (4V'0PEN"F$ 



PRINT C 
FOR I = 1 TO N: INPUT 
: INPUT Tits PRINT CHR$ 



SCALE i Echelle utilises 
pour tracer avec DRAW 
(ou XDRAW). (II estdecon- 
seille d'agrondir des 
caracteres). 

ROT : Angle de rotation 
de la forme (ici, un carac- 
tere). Valeur normale : 0. 

LOMEM : On n'a pas juge 
utile de modifier la valeur 
de LOMEM (fin de pro- 
gramme). Ici, les variables 
peuvent s J etendre sans 
probleme, jusqu'a I'adres- 
se $4000 (HGR2). Si vous 
fixe; LOMEMh creez une 
ligne 5 ainsi congue : 



5 LOMEM ; 25290 



a Attente sons curseur. II 
^ foul noter qu'un CTRL-C 
provoquerait un BREAK,,, 
genant. 



^ Avec ProDOS, rem placer 
™ "CATALOG" par "CAT" 
a PAGE2 visualisee sans 
^ effacement du graphe. 



^CALL-lQfl = CTRL-G = 
Bell,., la cloche. Vous 
pouvez inclure un CTRL-G 
dans un programme en 
tapant un CTRL-G entre 
des guillemets.. . ou a la 
suite d'un caroctere lui- 
meme place entre des 
guiHemets, ll n'apparaTtra 
ni a I'ecran, ni sur le 
papier, mais vous I'enten- 
drei si vous listez votre 
programme... ainsi qu'en 
executant celui-ci. 
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Le roppel des foncttons est 
fait lors de chaque appel a 
la routine 

"Saisie des donnees". 



II convient de noter ^ 
que cetfe routine per- 
met de : 

— lire un fichier 

— saisirdes donnees 

— modifier des donnees 



NM souvegarde to t 
voleur primitive de N + ▼ 



Le point d'interroga- ^ 

tion renvoie ici av * 

menu. Le / renvoie d 
f'INPUT precedent. 



Pourquqi des variables 
alphanumeriques ? 

Simpfement parce que lo 
saisie est plus facile, 
notomment quand Tune 
des donnees est une 
chatne de caracteres. 



Le programme pouvait 
certoinement traifer les 
n ombres d'une autre 
maniere (et meme de 
plusieurs autres)* Si vous 
en troovez de plus per- 
formantes.,. a vos 
claviers ! 
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G RAPHE 



BASIC 2 



370 PRINT : PRINT "<RET> TERMINE UNE SAISIE NORMA L E n : 

PRINT : PRINT "<CTRL-C> ABREGE UNE SAISIE EN ELIMIN 
ANT LES UALEURS QUI SUIUAIENT." 

388 GOSUB 260: HONE 

390 IF N < > 6 THEN FOR I - i TO N : VTA 8 5+1: HTAB 
1: PRINT RIGHT! < ( " 1J + STR* C I ) > ,2) + ■ « B Vt<I, 
0);: HTAB 25 - LEN (UtU,))): PRINT y$U f l): NEXT 
:SU = 1: GOSUB 596: GOSUB 630 :SU = 0: GOTO 660 

400 UTAB 23 :T* = " PAS PLUS DE 12 DONNEES S.U.P u : GOS 
UB 220 

410 UTAB 21 s PRINT TR$: UTAB 4r POKE 35,26 
426 NM - N:N = 6 
430 N = N + 1 

440 UTAB 4: HTAB Is CALL - 868: IF N = 1 THEN PRINT 

"EX. JANVIER 12000" 
456 GOSUB 780 

460 HTAB 5: INPUT H ":U$: IF U$ = "» AND U*(N.83 < > Jl 

" THEN 510 
470 IF U$ = "?" THEN 800 

480 IF U$ = "/" AND N > 1 THEN GOSUB 780 : N = N - 1 : G 

0T0 510 
499 IF v$ = ■ ■ THEN 560 
506 WN,6) = U$ 
510 GOSUB 780 

520 HTAB 25 - LEN <U*<N,5)>: IF MKN , 1 ) - 11 ,J THEN HT 
AB 18 

536 INPUT U,1 ;U$: IF V* * " " AND V*<N,I) < > " " THEN 5 



958 sN = N - 1 



546 IF V* = V" THEN 450 
558 IF U$ = 11 ?" THEN 80S 
560 IF y$ = 11,1 THEN UTAB 5 + N: CALL 

: GOTO 636 
576 U$(N,1) = U* 
586 GOSUB 780 

596 T = 0: FOR K = 1 TO N:T = T + UAL <U*(K,i>>: NEXT 
686 FOR I - I TO N:P = INT << UAL <U$<I ,1)) * 16000) 

/ T):P$ - STR$ <P>: IF LEN CP*) < 3 THEN P* = RI 

6HT* <<"000" + p*) ,3) 
610 P* = LEFT* <P*, LEN (P*) - 2) + V" + RIGHT* <P*, 

2) + "X": HTAB 33; UTAB 5+1: PRINT " ";: HTAB 

40 - LEN <P*>; PRINT P*: NEXT : IF SU = 1 THEN R 

ETURN 

620 IF N < 12 THEN 430 

636 UTAB 19: PRINT "TITRE 1 jTI*|S IF SU = 1 THEN PRIN 
T : RETURN 

640 HTAB 7: INPUT ;R$: IF R* < > THEN Tl$ = R* 
650 UTAB 2 9: HTAB 7: PRINT TI* 

660 POKE 35,24:T* - ■ «> SAISIE TERMINEE <2> CORRECTI 

ONS " 

670 UTAB 23 1 GOSUB 220 (SUITE PAGE 6) 
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BASIC 3 



6m 

69$ 
790 
710 
726 

738 
74G 
750 
768 

770 
780 

796 



810 
820 
830 
840 
850 
860 
870 
880 

890 

990 

910 
920 

930 

940 
950 
960 

970 
980 

990 

1000 

1310 

1020 

1830 
1040 
1050 



GOSUB 200 

IF R = 1 THEN NM = N: GOTO 726 
IF R < > 2 THEN 680 
GOTO 400 

PP = VAL CV*<1 ,1)) :P6 = 0: FOR I = 1 TO N; IF VAL 
(V*(I»1)) > PG THEN PG = UAL (Vt<I,l)) 
I f UAL CU*(I,1)) < PP THEN PP = UAL 
NEXT 

FOURCHETTE = PG + 1 - PP : FO = FO / 1 30 
FOR I = 1 TO NsHCI) = C VAL (V*<I,D) - PP> / FO:H 
<I) = 149 - HU) : NEXT 
GOTO 116 

VTAB 5 4 N: HTAB 1: CALL - 868: IF N < 10 THEN H 
TAB 2 

PRINT N" . " |W<N,0)| TAB< 25 - LEN (V*<N,1))> ;V*C 
N,J) i : RETURN 
IF NM > N THEN N = NM 
GOTO 720 



Si ?, OF1 recupere la valeur 
primitive de N dans NM. 



REM SB**************************** 
REM ** 2, TRACE DU GRAPH! QUE ** 
REM ****************************** 

• 
■ 

IF N = THEN 110 
X = 0: IF G < > 1 THEN 910 

HTAB 5 i UTAB 22: PRINT "EFFACER GRAPH ACTUEL <0/N) 
GET R*: POKE - 16368,9; IF R* = "0" THEN 919 
GOSUB 240: GOTO 1070 
HGR2 

DI = 1: IF PG > 9999 THEN DRAW 24 AT 2,3: DRAW 28 
AT 9,3: DRAW 23 AT 14,3:DI = 1000: GOTO 940 
IF PG > 999 THEN DRAW 14 AT 2,3: DRAW 16 AT 9,3: 
DRAU) 25 AT 16,3: DRAW 31 AT 23,3:DI ■ 100 

E = (PG - PP) / 13:V = PG 
HPLOT 35,0 TO 274,0 TO 274,14? TO 35,149 TO 35,0 
FOR I - 18 TO 148 STEP 19! HPLOT 32,1 TO 35,1: FOR 
J = 37 TO 272 STEP 3: HPLOT J, I: NEXT 
IF 3 = 148 THEN V = PP 

= STR* < INT <V / DI)): IF V* = "8" THEN V* = V 
* + MID$ << SIR* (U / 01)^2,2) 

FOR K = 1 TO LEN <V$) : IF K = 1 AND ASC (Vf) = 4 

8 THEN DRAW 43 AT 5,1 - 3: GOTO 1010 

DRAW ASC ( MID* <U*,K,1)) - 46 AT <K * 7) - 5,1 - 

3: NEXT :V = PG - (E * INT Ci / 10)) 
NEXT 

D = N - 1: FOR 1 = 35 TO 274 STEP (239 / D) :X = X * 



1 : FOR J = 148 TO H<X) 
DRAW 42 AT I - 3,H(X) - 



NEXT 



STEP - 2: HPLOT I, J 
4: GOSUB 1090 
IF X > 1 THEN HPLOT M,H<X - 1) TO I,J 
M = I: NEXT ; IF X < N THEN X = N: HPLOT M,H<X - 1) 



^ Quelle 
™ grande 



est la plus 
valeur,,, et 
quelle est la plus petite ? 
Reports© ici. 



j Determination des or- 
™ donnees [ma is pas desor 
donnee pour autant !). 



Affichage des 
donnees 



^ S'il n'y a pas de don- 
nees, retour au menu 
et si G est different de 1, 
inutile de poser la ques- 
tion : on va directement 6 
HGR2... pour tracer. 



^ DI est une variable qui 
divtse par 1 , par 1 00 au 
par 1000, suivant les 
besoins. 



a £a, c'est le cadre, puis 
^ viennent les lignes en 



pointille 
ment) . 



(horizontale 



a Ecriture des nombres 
^ (si le premier chiffre 
est un 0, on le remplace 
par un point). 



Puis vient la suite du 
graphe... tout un 
programme ! 
■«■»■■»»■■«»■<■»■*■ 
GUY-HACHGTTE 
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Ecriture de la nature ^ 
des donneet chacune * 
d'elJes etant limitee d 
ses trofs premiers carae- 
teres. 



ECRITURE du titre 
On ne dispose que d'une 
fonte reduite, composee 
des chiffres, des lettres 
capitales, de I'apostro- 
phe, du point et des 
parentheses. 



Memorisation inte- ^ 
ressant© si vous " 
n'irnprimez pas immedia- 
tement votre GRAPHE (il 
peut etre insere dans un 
texte realise par GRI- 
BOUILLE. par exemple). 



Memorisez vos don- w 
nee& : cela vous evi- ^ 
tera de les retaper... et 
efles occupent peu de 
place sur lo disquette. 



GRAPHE 



BASIC 4 



1 G60 
1878 

1086 

1090 



1193 

1116 

1126 
1130 
1140 
1159 

1169 
1170 
1180 

1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
\ 2 70 
1280 
1290 
1300 
1310 
1320 
1330 
1340 

1350 
1360 
1370 
1380 
1390 
1460 
1410 
1420 
1438 



IF PEEK ( 



TO I,H<X): DRAW 42 AT I - 3 f H<X) - 4: GOSUB 1090 
GOTO 1160 

PRINT : CALL - 198s GOSUB 280iG = Is 

16384) = 9 THEN 1610 
GOTO 110 

R0T= 48 m = LEFT* CV*OC,l>,3>l FOR K = LEN <W 
TO 1 STEP - Is DRAW < ASC C MID* (y*,K,l)) - 53) 
AT 1 - 2,178 - (K * 7): NEXT K: R0T= 0: RETURN 

REM a***************************** 
REM ** GRAPH. CAR <A*6000 , L762) ** 
REM a***************************** 



POKE 232 f 9! POKE 



PRINT CHR* <4)"BL0AD GRAPH, CAR" 
233, 96 i RETURN 
X = 2:Y = 7j IF TI* = "" THEN 1070 
L = LEN <TI*):X = 37 + <<249 - L * 7) / 2) jY = 7 

FOR I = 1 TO L:R - ASC ( MID* <TI*,I,i)) : G0SU8 1 

200: NEXT 

GOTO 1870 

IF R > 64 AND R < 95 THEN R = R - 53; GOTO 1250 
IF R > 47 AND R < 58 THEN R = R - 46: GOTO 1250 
IF R = 39 THEN R = 1 : GOTO 1250 
IF R = 48 OR R = 41 THEN R = R - 2: GOTO 1250 
GOTO 1260 
DRAW R AT X - 7,Y 
X = X + 7: RETURN 

REM ##*#*#«#*#*#*#**###***#******* 

REM ** 3. MEMORISATION DU GRAPH «* 
REM ********************* ********* 



IF 6 < > 1 THEN 118 
FB* = " GR6 " : GOSUB 1580 
UTAB 21 : PRINT s PRINT 
L8184" 
GOTO 118 



CHR* <4> fl BSAVE"F*" ^16384, 



REM ****************************** 
REM ** 4, MEMO FIC DE DDNNEES ** 
REM ****************************** 



1440 
1450 



IF N = THEN 110 
FB$ = J 'GRD0 J1 : GOSUB 1580 
UTAB 21 i PRINT : PRINT CHR$ <4)"0PEN D F$: PRINT C 
HR* (4) ,, URITE ,P F*: PRINT N: FOR I = 1 TO N: PRINT 
<I,0)s PRINT U*< 1,1); NEXT : PRINT TI*: PRINT CHR* 

<4)"CL0SE"F$ 
GOTO 1358 

: (SUITE PAGE 8) 
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G RAPHE 



BASIC 5 



14ofl 
1470 
1480 
1490 
1590 



1510 
1520 
1539 



1540 
1558 

1S6Q 
1570 
1580 
1596 
160O 
1610 
1620 
1630 

1640 
1650 
1666 
1670 
1680 
1699 
1708 
1710 
1720 



1730 
1740 
1750 



REM ****************************** 
REM ** SAISIE-CONTROLE TITRE FIC * 
REM ****************************** 



HTAB I 
INPUT 



PRINT % CALL - 198: U7AB 22 

PRINT "TITRE i "FB*; : HTAB 8 
■" THEN POP i GOTO 110 
IF F* = "?■ THEN HOME : GOSUB 230: 
IF ASC <F*> < 65 OR ASC <F*> > 90 
VTAfl 21: PRINT CHR* <4)"UNL0CK B F*: 

- 958: CALL - 198: PRINT 
SE (0/N> " ; : GET R*; POKE 
THEN 3 500 

IF R* < > "0" THEN 1530 

VTAB 21: PRINT : PRINT CHRf (4? "DELETE 



CALL 
;F*: 



- 868: 
IF F* = 



GOTO 1500 
THEN 1500 
UTAB 22: CALL 
CE FICHIER UA ETRE ECRA 
16378,8: IF R* = "N" 



F$: RETURN 



REM ********#*#**#*#*#***#*##*##** 
REM ** 5, IMPRESS I ON DU GRAPH ** 
REM ****************************** 

IF G < > 1 THEN !16 
GOSUB 240 

PRINT : PRINT CHR* (4)'TR£1": PRINT CHR* <9)"GE2 
": PRINT : PRINT CHR$ (4) ri PR£0" : GOTO 118 

REM ft***************************** 
REM ** TRAITEMENT DES ERREURS ** 
REM ********************* ********* 



CALL 948 :ER = PEEK <222) 
IF ER = 255 THEN = " " : 
IF ER = 6 THEN RETURN 
IF ER = 9 THEN UTAB 21 ; 
AB 12: PRINT 1] DI SQUETTE 
TO 2000; NEXT 
GOTO 110 

TEXT : HOME : END 
POKE 51,0: GOTO 110 



: GOTO 560 

CALL - 958: INUERSE : NT 
PLE2NE" : NORMAL : FOR I = 1 



En cas de fausse manoeuvre, 
GOTO 1750 renvoi*? au menu. 



Le programme G RAPHE se compose de : 

• GRAPH (Basic, pages 4/8) 

• GRAPH. MEN (langage machine, page 9) 

• GRAPH .CAR (fonte, page 10) 

Ces titres sont ceux qui figured sur la disquette de Tremplin Micro n°4 



j Cette partie du pro- 
^ gramme utilise le 
traitement des erreurs. 



j A revoir suivant la 
marque de votre 
imprimante... et Nnter- 
face que vous utilisez. 



a Une routine classique 
^ de traitement des 
erreurs est Instalfee d la 
fin du programme 
GRAPH. MEN, 6 partir de 
I'adresse 948. 



^ Sous ProDOS, trans- 
formez ainsi la ligne 
174CT : 

TEXTE : HOME : PRINT 
CHR${4) "OPEN" \ END 



GUY-HACHETTE 



GRAPH.MEN 



0300- 


20 


58 


FC 


JSR 


$FC58 


9 39 3- 


A2 


2C 




LDX 


£$2C 


8395- 


A? 


06 




LDA 


£$06 


0307- 


85 


25 




STA 


$25 


0369- 


A9 


0A 




LDA 


£*6A 




85 


24 




STA 


$24 


ft ^ Cm. r\ 

030D- 


20 


22 


FC 


JSR 


$FC22 


031 0- 


BD 


00 


03 


LDA 


$0300, X 


J 1 3- 


C? 


00 




CMP 


£$00 


0315- 


F0 


06 




BEG 


$031D 


031 7- 


20 


F@ 


FD 


JSR 


$FDF0 


y ji a— 


E8 






I NX 






pi n 
D0 


F3 




BNE 


$0310 


031 D- 


E0 


82 




CPX 


£$62 


031F- 


F0 


07 




BEQ 


$0328 


0321- 


E6 


25 




INC 


$25 


0323- 


E6 


25 




INC 


$25 


0325- 


E8 






I NX 




0326- 


D0 


El 




BNE 


$6 30? 


0328- 


20 


E4 


FB 


JSR 


$FBE4 


032B- 


6 






RTS 





Si vous manquez d'experience, contentez-vous de taper la 
version presentee page 56. 



$FC58 vide l ecran (HOME) 

Le registre X est charge ovec $2C (44 octets) 

Autrement dit : POKE 37,6 (position verticale du cur- 
seur P $25) et POKE 36,10 (position horizontal©, $24)... 
$FC22 qui envoi© le curseur 6 I'empiacement ainsi 
prepare* 

On lit le coractere qui est d l adresse$3Gf0 + X 
Est-ce unfl ? 

Si oui a~t-on termini ($31 D) ? 
$FDF0 affiche le coractere 

X est increments de I 

Si ce rVetait pas un zero, encore un tour \ 

Est-ce fa fin ? 

Si om, direction $328 

+ 1 verticalement 

+ 1 outre 

Et plus 1 pour X aussi 

Et encore une petite tournee ! 

$FBE4 vous reveille ovec un jo II petit bip, + . 

... puis relour au Basic 



032C- 


A0 


A@ 


A6 


A 8 












0330- 


A0 


20 


0D 


20 


5 


2@ 


@E 


20 


M E N 


0338- 


15 


28 


00 


31 


A0 


D3 


CI 


C? 


U 1 SAI 


6340- 


D3 


c? 


C5 


A8 


C4 


C5 


D3 


A6 


SI E DES 


8348- 


C4 


CF 


CE 


CE 


C5 


C5 


D3 


00 


DONNEES 


0350- 


32 


A0 


CI 


C6 


C6 


C9 


C3 


C8 


2 AFFICH 


0358- 


CI 


C7 


C5 


A@ 


C4 


D5 


A0 


C7 


AGE DU G 


360- 


D2 


CI 


D0 


ce 


80 


33 


A0 


CP 


RAPH 3 M 


0368- 


C5 


CD 


CF 


D2 


C? 


D3 


CI 


D4 


EMORI SAT 


0370- 


C? 


CF 


CE 


AU 


C7 


D2 


CI 


D0 


ION GRAP 


0378- 


C8 


08 


34 


A0 


CD 


C5 


CD 


CF 


H 4 MEMO 


0380- 


A0 


C4 


C5 


ID 3 


AS 


M 


CF 


CE 


DES DON 


©388- 


CE 


C5 


C5 


D3 





35 


A0 


C5 


NEES 5 E 


0390- 


C4 


C? 


D4 


C9 


CF 


CE 


AO 


C4 


D1TI0N D 


0398- 


D5 


A0 


C7 


D2 


CI 


D0 


C8 





U GRAPH 


6 3A0- 


36 


mL1 


C6 


C9 


CE 


A0 


C4 


C5 


6 FIN DE 


B3A8- 


A0 


D0 


D2 


CF 


C7 


D2 


CI 


CD 


PROGRAM 


63B0- 


CD 


C5 





06 










ME 



De $32C a $3B3, sont 
memorlsees les six 
lignes du menu {(es 
deux derniers octets 
sont inutilises). 

Les $A0 sont des espa- 
ces... de meme que les 
$20 (mais ces derniers 
sont affiches en mode 
inverse). 

Les chiffres sont egale- 
ment en mode inverse. 



93B4- 


68 


PLA 


03B5- 


AS 


TAY 


0386- 


68 


PLA 


03B7- 


A6 OF 


LDX 


03B9- 


?A 


TXS 


3BA- 


43 


PHA 


03BB- 


98 


TYA 


03BC- 


48 


PHA 


03BD- 


60 


RTS 


TREAAPLIN MICRO 





$DF 



Sous- 
programme de 
recuperation 
des erreurs, 
evitant de 
perdre le fil des 
operations 
(GOTO et 
GOSUB), 



Lorsque vous aurez 
tout tape, apres le 
CALL-151 de rigueur, 
faites un : 

BSAVE GRAPH.MEN, 
A$30O, L$BE. 



CRAPH.CAR 



CALL-151, puis 6000 : 2B 01 69 00, etc, Ensuite, taper CTRL-C, 
puis BSAVE GRAPH. CAR, A$6000, L$2C8 



#600 


,62C7 














61 6W - 




do 


L> 1 ' 


"7 O 

f J 


,:_ U 


/ 3 


ft 4 

y l 


u y 


6000" 


2B 


01 


69 


00 


6E 


00 


80 


06 


6 1 63- 






d 1 


Dr 






d 1 




6008- 


89 


00 


97 


00 


A4 


00 


Bl 


00 


61 70 - 


3F 


6E 


9 


I" 1 ■ 


1 B 


6E 


9 


4E 


69 I9- 


C8 


00 


Dl 


00 


DC 





ED 


06 


61 78- 


00 


00 


3E 


J—, I— . 

2D 


1 E 


36 


36 


1 7 


60 1 8- 


FE 


80 


1 


01 


21 


01 


2F 


01 


61 80- 


2D 


4E 


00 


00 


■l r — 

4E 


49 


31 


36 


6020- 


3E 


01 


4D 


01 


3B 


01 


69 


01 


61 88- 


36 


J~T. J 

DF 


73 


2D 


4E 


1 


00 


09 


6028- 


7B 


01 


35 


01 


90 


01 


9F 


01 


6190- 


4D 


Fl 


DF 


6E 


1 E 


37 


0D 


1 5 


6030- 


A7 


01 


69 


01 


CB 


01 


DC 


01 


61 93- 


DF 


6E 


09 


4E 


60 


6 


1 i 


36 


6038- 


EA 


01 


FC 


01 


0D 


02 


ID 


02 


61A0- 


36 


36 


2D 


75 


1 


00 


6E 


4D 


60 40- 


27 


02 


38 


02 


48 


02 


5A 


02 


61 A8- 


3i 


FF 


37 


0D 


6D 


FE 


1 F 


6E 


6048- 


6A 


02 


76 


62 


82 


02 


88 


02 


61 BO- 


09 


FE 


1 B 


6 E 


09 


4E 








60 50- 


94 


02 


AC 


02 


BC 


02 


62 


00 


61B3- 


3F 


4D 


31 


DF 


33 


6D 


31 


1 F 


6858- 


09 


00 


00 


80 


00 


00 


00 


00 


61C0- 


IF 


6E 


29 


FE 


1 B 


6E 


09 


4E 


6666- 


00 


92 


92 


8A 


F6 


00 


86 


00 


61 C8- 


06 


66 


2? 


29 


AD 


D F 


33 


4D 


60 68- 


2D 


36 


96 


52 


1 


00 


29 


AD 


61 D0 - 


31 


DF 


33 


4D 


3 1 


DF 


73 


2D 


6070- 


1)1- 


33 


4D 


35 


1 F 


1 F 


2E 


4D 


6 1 D8- 


4E 


6 1 


00 


52 


2D 


AD 


DF 


33 


6878- 


FE 


IB 


E 


2D 


4E 


1 





1 7 


61 E@~ 


4D 


Fl 


3F 


37 


36 


4E 


49 


1 


6080- 


31 


77 


36 


BE 


2D 


4E 


00 


00 


61 E8- 


60 


49 


29 


AD 


DF 


33 


4D 


31 


6088- 


6? 


29 


AD 


DF 


73 


49 


1 E 


BF 


61 F0- 


DF 


33 


D 


0D 


1 E 


DF 


0E 


6D 


6690- 


IE 


2E 


2D 


75 


1 


00 


4E 


2D 


61 F8- 


4E 


00 


00 


2D 


2D 


AO 


DF 


33 


6093- 


2D 


BE 


3E 


4E 


FE 


1 B 


0E 


2D 


6200- 


4D 


Fl 


3F 


37 


0D 


1 5 


DF 


6E 


60A0- 


4E 


01 


00 


71 


49 


3E 


17 


0D 


6208- 


09 


4E 


00 


00 


20 


29 


AD 


DF 


60A8- 


FE 


33 


2D 


2D 


1 E 


76 


09 


66 


6210- 


33 


4D 


3A 


77 


09 


FE 


1 B 


0E 


60B0- 


4E 


2D 


2D 


DE 


IB 


2E 


2D 


15 


6218- 


2D 


4E 


01 


00 


IE 


2D 


2 D 


DE 


6988- 


36 


DF 


73 


2D 


4E 


01 


60 


2D 


6226- 


36 


36 


76 


49 


00 


08 


00 


4D 


60C0- 


0? 


2D 


DE 


BB 


4D 


3A 


3F 


6E 


6228- 


31 


DF 


33 


4D 


31 


DF 


33 


4D 


60C8- 


09 


FE 


1 B 


0E 


2D 


4E 


61 


60 


6230- 


31 


DF 


73 


2D 


4E 


1 


00 


0D 


60D0- 


IS 


2D 


2D 


BE 


1 E 


17 


36 


4E 


6238- 


4D 


31 


DF 


33 


4D 


31 


DF 


33 


60D8- 


49 


00 


00 


1 5 


29 


AD 


DF 


33 


6240- 


4D 


Fl 


IF 


6E 


4E 


09 


00 


00 


66E0- 


4D 


Fl 


3F 


1 7 


4D 


31 


DF 


73 


6248- 


4D 


31 


DF 


33 


4D 


31 


1 F 


IF 


60E8- 


2D 


4E 


1 





1 7 


29 


AD 


DF 


6250- 


6E 


0D 


3E 


IF 


37 


4D 


71 


1 


60F0- 


33 


4D 


31 


3F 


77 


09 


1 E 


DF 


6258- 


06 


09 


4D 


31 


DF 


73 


0D 


1 E 


60F8- 


2A 


75 


49 


00 


06 


FF 


89 


1 5 


6260- 


17 


9D 


15 


DF 


33 


4D 


71 


1 


6100- 


IF 


1? 


4D 


31 


DF 


33 


2D 


2D 


6268- 


06 


00 


4D 


31 


DF 


73 


6D 


1 E 


61 08- 


FE 


IB 


6E 


09 


4E 


00 


00 


37 


6270- 


36 


76 


49 


00 


00 


1 


2D 


2D 


6110 — 


2D 


AD 


DF 


33 


4D 


Fl 


3F 


37 


6278- 


BE 


IE 


1 7 


1 E 


2E 


2D 


75 


01 


6118- 


4D 


31 


DF 


33 


2D 


75 


69 


08 


6280- 


00 


75 


69 


IE 


36 


36 


0E 


4E 


61 26- 


92 


29 


AD 


DF 


33 


36 


4D 


1 1 


6 2 o 8 — 


00 


00 


36 


09 


15 


36 


36 


17 


61 28- 


DF 


73 


2D 


4E 


01 


00 


6 


2D 


6290- 


4E 


01 


06 


36 


2D 


2D 


35 


3F 


6130- 


AD 


DF 


6£ 


31 


DF 


6E 


31 


DF 


6298- 


3F 


37 


2D 


2D 


35 


3F 


3F 


37 


61 38- 


17 


2D 


75 


09 


00 


09 


2D 


2D 


62A0- 


2D 


2D 


35 


3F 


3F 


37 


2D 


2D 


61 40- 


DE 


IB 


6E 


1 1 


3F 


37 


36 


2D 


62A8- 


75 


01 


00 


69 


49 


11 


3F 


37 


61 48- 


2D 


4E 


08 


60 


33 


2D 


2D 


DE 


62B6- 


2D 


35 


3F 


37 


2D 


35 


3F 


B7 


6150- 


IB 


6E 


1 1 


3F 


37 


36 


4E 


49 


62B8- 


49 


09 


00 


00 


49 


3A 


17 


2D 


6158- 


01 


00 


2D 


29 


AD 


DF 


33 


36 


62C0- 


35 


3F 


37 


2D 


F5 


B7 


06 


00 



VERIFICATION (en mode direct) 
§T=0 :F0RI^24576T024576+71 1 :T=T+PEEK< I ) :NEXT : ? : ? "T0TAL-C0NTR0LE= "T 
LE RESULT AT DOIT ETRE 



TOTAL- C0NTR0LE= 49488 



mm 



TO 



GUY-HACHETTE 



mm 



GRAPHISME 



DOS ProDOS 



Les fruits 
de la passion 

Peui-etre aurez-vous besoin, dans Tun de 
vos programmes ludiques, de figurer les 
touches Pomme ouv&rte et Pomme fer- 
mee de votre Apple.., les void ! 



i <Si fit tf* (3i c5< (Si t5i di t$ 



Sur un Apple flc, ces deux illustres pammes f igurcnt en tete des eerae- 
teres "souris". Syr ce stfjet, revolrld page 34 du n°2 de fremplin fAkro, 



10 
23 
39 

40 
50 
60 

79 

80 
90 

100 
110 

120 

136 
140 
150 



140 
170 

3 89 
190 
200 
210 
220 
230 



240 
250 



REM 3 38 OCTETS POUR DEUX POMMES 
SCALE= 1: ROT- G: HC0L0R= 3: HGR 



TEXT 

I- EN 
INPUT 

eosue 

X = 3: 
+ 10: 

X = 3: 
+ 14: 



HOME ;T$ = "13? OCTETS POUR DEUX POMMES 
CT$): PRINT \ : NEXT : PRINT : PRINT 
"ADRESSE DECIMALE DE LA TABLE " jAD 
180: HGR 

TO 10: DRAW 1 AT X ,30 :X = X + 16 : DRAW 



PRINT TS: FOR I = 1 TO 



2 AT X,30;X = X 

1 TO 10! DRAW 1 AT X,50:X = X + 12: DRAW 2 AT X,50:X = X 



A 64 (90, 180, 270, 360 DEGRES) 

DRAW 1 AT X , 90 : R0T= R:X 



FOR I = 
NEXT 
FOR I - 
NEXT 
REM ROTATION 16 
R = 48sX = 14: FOR 1=1 TO 3: 

16: IF R = 89 THEN R - 16 
NEXT ; R0T= 
REM SCALE 
X = 25: FOR I = 1 TO 3: SCALE" 
= 1 
G0SU8 170 

TEXT : HOME : LIST 

PRINT : FOR I = 1 TO 10: PRINT " 

DE DISQUETTE <2> NON MERC I " : GOSUB 
PRINT i PRINT CHR* (4) "RUN MENU" 
TEXT : HOME : END 
CALL - 198: POKE 
ETURN 

POKE 232, AD - INT 
FOR I = AD TO AD + 



= X + 26:R = R + 



Agrdndrr une telle forme n'est pas tres heureux ! 
DRAW 1 AT 50 + X * 1,115; NEXT : SCALE 



11 1 * 
170 



NEXT : PRINT 
: IF PEEK S ■ 



PRINT 
16384) 



"<*> MENU 
= 49 THEN 



16368,0: WAIT - 16384,128,127: POKE - 16368,0: R 



256) 



(AD / 256) * 256: POKE 233, INT <AD / 
137s READ R: POKE I ,Rs NEXT : RETURN 
REM PARAMETRES <2 FORMES, PREMIERE AU 8e OCTET, SECONDE AU 74e) 
DATA 2,0,8,0,74,010,9 #2 indique le norobre de formes, 8 la poiitipi du premier 

REM POMME FERMEE octet de la premiere, 74 telle du d*^utde la second*. 

DATA 105,73,17,63,255,46,45,245,219,223,19,45,13,13,45,21,63,63,63,63,6 
3,46,45,45,45,45,30 ,63,63,63^3,46,45,45,45,53,63,63,63,63,46,45,45,45,4 
5,21 ,63,63,63,63,55,45,45,45,45,245,63,63,63,1 19,109,41 ,78,9,0 
REM POMME QLWERTE 

DATA 73,73,105,73,17,63,255,46,45,245,219,223,19,45,13,13,45,21,223,59, 
255,27,110,73,73,241 ,223,219,27,110,73,73,254,219,219,110,73,73,169,223, 
219,219,119,73,73,241 ,223,255,115,109,41 ,78,9,0,64,192,64,192,64,192,64, 
8,0,25,0 



TREMPL1N MICRO 



1 l 



CRAPHISME 



DOS 



Pro 



DOS | 



I Chiffres HGR 

Ce court programme de demonstration vous montre 
comment utiliser les chiffres d'une (courte) table de 
iormes. POKE 232,0 et POKE 233,96* ($E8 et $E9) four- 
nissent a votre Apple I'adresse du premier octet de ■ 
cette fameuse table, H 




1006 
1016 
1029 
1038 

1050 

1060 
1076 

1080 

1890 
1100 
1118 
1120 
1130 
1149 
1150 
1160 
1178 
1180 
1190 
1200 
1210 
1228 
1230 

1240 

1256 
1260 
1270 

3 288 
1290 
1300 



TEXT 

GOSUB 

GOSUB 

HGR ; 

VTAB 

UTAB 



NORMAL ; 
1168 

1240: HOME 
HCOLOR= 3; 



PRINT CHR$ (12): CHR* (21) s HOME 



22: 
22: 



HTAB 
HTAB 



20 
1 : 



SCALE= 1 : 

INVERSE : 
GET R$:R - 



R0T= 1 :X = 2:Y = 7 
PRINT "CTRL-C=FIN 
ASC <R*>: IF R = 



NORMAL 
THEN HOME 



TEXT : END 



IF 
IF 
IF 
IF 

IF 



- 7 
Y + 

- 7; 

X + 



GOTO 1050 
?! GOTO 1050 
GOTO 1050 
7: GOTO 1859 



1 AT X - 7.Y: RETURN 



1 1 AND Y > 7 THEN Y = Y 
10 AND Y < 140 THEN Y = 
8 AND X > 9 THEN X = X 
21 AND X < 282 THEN X = 
4 THEN D = R: GOTO 1050 
POKE - 16348, 8:X = X + 7: IF X = 289 THEN X = 9:Y = Y + 7 
GOSUB 1130: GOTO 1050 
IF D = 4 THEN D = 0: XDRAW VAL <R*) + 
DRAW VAL <R$> + 1 AT X - 7,Y: RETURN 
HTAB (41 - LEN <T*)> / 2s PRINT T*: RETURN 
T$ = "PROGRAMME DEMO D'ECRITURE": VTAB 6; GOSUB 1158 
PRINT :T* = "EN PAGE GRAPH! QUE HGR OU HGR2" ; GOSUB 1150 
PRINT :T$ = "AUEC DES CHIFFRES EN DATA": GOSUB 1150 
PRINT :T* = "SE DEPLACER AVEC LES FLECHES APPLE" t GOSUB 1150 
T* = "POUR EFFACER UN CHI FFRE : REMENI R" : GOSUB 1150 
T$ = "SUR LE CARACTERE , TAPER CTRL-D" i GOSUB 1150 
T$ = "PUIS LE CHI FFRE INCRIM1NE" : GOSUB 1150 
CALL - 198: POKE - 16368,0: WAIT - 16384,128,127: POKE - 16368,0: R 

ETURN 

POKE 232,0: POKE 233,96s FOR I = 24574 TO 24785: READ J: POKE I, J: NEXT 
• RETURN 

BATA 10,0,22,0,36,8,44,0,54,0,66,0,76,0,88,8,99,0,108,0,119,0 

DATA 12,37,28,63,23,54,46,38,14,45,44,36,4,0,36,188,158,18,45,28,36,0 

DATA 101,228,63,23,150,241 ,46,45,37,8,12,12,60,63,183,146,21,45,12,223, 



7,8 

DATA 

DATA 

DATA 

4,0 



58,39.12,12,12,54,174,55,62,0,56,39,44,45,245,170,54,23,63,28,4,8 
117,246,63,28,36,229,12,12,45,6,0,12,12,60,63,183,82,30,46,0 
231,100,45,21,246,14,246,63,28,36,0,231 ,108,45,21,54,119,30,38,63, 



POQUER LINE ADRESSE HEXA. — Exemple $03/00 = POKE X,0 : POKE X + 1.3 ou encore $60/00 - 
POKE X,0 : POKE X + l ,96 ($60 en HEXA = 96 en numeration decimale). 



12 



GUY-HACHETTE 



CRAPHISMB 



Si la question vous interesse, tapez ce 
court programme de demonstration. II 
vous aidero 6 bien comprendre comment 
lire (et meme modifier) une fonte de 
caracteres telle que GRAPH. CAR (p. 10), 



Plus loin 
avec la fonte 
GRAPH.CAR 



10 

32 
46 

5& 
60 

79 

80 
90 

100 

110 

123 
130 

140 

150 



169 
170 
189 

190 

200 

210 
229 



230 



CHR$ (21) 

REM PROGRAMME 



PRINT CHR$ <12) 
AD = 14385 +16+44 

GOSUB 190: GOTO 50 
H « 30 sU * V + 15! FOR X = 1 TO LEN 

): CALL CA: DRAW PEEK (25) AT (H - 

HOME : H6R sA* = " CARACTERES HGR 
m = "ABCDEFGHI JKLMNGPGRSTUWXYZ" 



+ N0M8RE DE CARACTERES 



<A*) ! POKE 25, ASC C 
- 7> + (X * 7) ,U: NEXT 
(DEMO)" i GOSUB 40 
GOSUB 40 



MID* <A*,X,1) 
: RETURN 



A$ = "<0123456789> 
SPACES 



^-0": GOSUB 40: REM SI ONES INCONNUS TRANSFQRMES EN E 



V = y 

EXT 
AS = 
AS = 
A* - 
A$ = 

GOSUB 

240 

PRINT : 
VTAB 22 
! IF 
ENU" 
HOME 
VTAB 
CALL 
T : 



+ 25 :Y = 0: FOR X = 38 TO 43 :Y = Y + 1 : DRAW X AT Y * 7 + 



23 f M: N 



'<)<>*. " : GOSUB 40 
'LA FONTE GRAPH -CAR 
'L'ESPACE MAIS EL.LE 
'MODIFIABLE GRACE A 
170: TEXT : PRINT 



NE COMPORTE PAS" : GOSUB 
EST FAC2 LEMENT" :M = V - 
SES VALEURS 00 " :U = V ■ 
CHR$ (4) "PR£3 JJ : PRINT 



GOSUB 170: HOME : LIST 30,120: GOSUB 170 
PRINT "<1> MENU DE DI5QUETTE <2> FIN DE 
PEEK ( - 16384) = 49 THEN VTAB 20: PRINT 



40 

5: GOSUB 40 
5: GOSUB 40 
LIST 19,30: 

HOME 
PROGRAMME" : 
PRINT CHRf 



LIST 190, 



GOSUB 180 
(4)"RUN M 



s END 

22: HTAB 8: INVERSE : PRINT "PRESSEZ UNE TOUCHE S 
- 198: POKE - 16368,8: WAIT - 16384,128: POKE 
RETURN 



P ,r : NORMAL 
16368,0: PRIN 



: PRINT : PRINT CHR$ < 4) "BLOADGRAPH , CAR ,A"AD : REM FONTE SANS ESPACE 
POKE AD ,44: POKE AD + 88,95: REM NOMBRE DE FORMES PORTE DE 43 A 44 & A 
DRESSE DE L'ESPACE 

POKE 6, AO - INT <AD / 256) * 256: POKE 7, INT <AD / 256): POKE 232, P 
EEK <6>: POKE 233, PEEK (7>s SCALE= 1: ROT- 0; HC0L0R= 3 
A$ - " / 9123456789ABCDEFGHIJKLMN0PQRSTUWXYZ<)<>*. " :CA = AO - LEN (A$) 



- 1 :Y ■ CA 
,1)); NEXT 
CA = CA - 16 



FOR X = 1 TO LEN CA$) 
POKE 8,CA ~ INT (CA / 
FOR X = CA TO CA + 15: 



Y = Y + 1: POKE Y, ASC ( HID* <A$ ,X 
256) * 256: POKE 9, INT (CA / 256) 
READ Y: POKE X,Y: NEXT : RETURN 



240 DATA 


169 


,44, 177, 8,197,25 


,240 ,5,136, 


208,247,160,44,132,25,96 


4000- 


A6 


2C 




h LDY 


£*2C 


Initialisation ovec nombre de caracteres ($2C = 44} 


4002- 


Bl 


08 




LDA 


(*98) ,Y 


Lecture indirecte (adresse donnee en $B — 9 + Y) 


4004- 


C5 


19 


D 


CMP 


%i? 


Comparoison ovec le contenu de la memoirs $1 9 (25) 




F0 


05 




BEQ 


*460D 


Si egalite (Z= 1), c'est bon ! 


400Q- 


88 




A 


DEY 




Sinon, moins \ pour Y... 


4009- 


D0 


F7 




E3NE 


*4002 


„. et retour au debut de boucle pour lire 


400B- 


AG 


2C 


T 


LDY 


£*2C 


Si le caractere est inconnu ; c'est un espace 


409D- 


84 


19 


A 


STY 


$1? 


M£ma du numero de caractere a Todresse 25 


490F- 


62 






RTS 




Retour au Basic. 
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Votre bibliotheque 
INFORMATIQUE 

a // ne s'agit pas d'apprendre I 'Anglais, mats bien 
de le COMPRENDRE 

La Collection MARABOUT INFORMATIQUE nous propose, 
sous la double signature d'Alain Wiard et d'llya Virgatchik, 
un DICTIONNAIRE BILINGUE D'INFORMATIQUE qui devrait 
rendre d'eminents services a celles et a ceux qui, taquinant 
le Basic ou les logiciels du commerce, ont parfois — en 
Anglais s'entend — la comprenette difficile, 

Bon ! c'est mon cas, mois evttons de faire du nombrilisme H 
et revenons au "poche" de Marabout (deficelles, au pluriel, 
mats oui, car cet ouvrage est en effet bourre de trues fort 
interessants). 

Je I'aurais consider© comme un honnete aide-memoire, 
sans plus, semblable — en plus concis — o beaucoup 
d'autres, s'tl ne tomportait pas, en supplement, la traduc- 
tion des principaux messages d'erreurs et cela pour plu- 
sieurs systemes d'exploitation... dont celui du business 
basic app/e. 

Une idee genereuse, traitee en quelques pages, mais dont 
devraient bien s'inspirer les auteurs des prochains diction- 
naires du genre... 



par Clement RENARD 




FRANCAIS 

FRANCAIS 

ANGLAIS 



Pour comprendre tous 
te* manuclset les messages-ecran 
des principaux togkieli 



Alain Wiard 
I lya Virgatchik 




De vraies clefs pour Apple Ik 

Nicole Breaud-Pouliquen est une recidiviste (mais 
absolument pas dangereuse. sauf pour les 
bogues r bien entendu). Nos lecteurs connaissent 
deja son Longage machine et assembleur du 6502 
(en collaboration avec Daniel-Jean David). 

Par ailleurs, on ne compte plus les croqueurs de 
Pom me d la recherche, dans les C/efs pour i'Appfe It 
de I'erudite Nicole (conseil en informatique indivi- 
duelle, et specialiste de I'enseignement die la pro- 
grammaHon), de quelque pepin egare. 

Clefs pour Apple lie reprend les grands themes du 
precedent, mais fournit au neophyte toutes les 
adresses dont il a (ou aura) besain. C'est I'ouvrage 
de reference par excellence.,* et on peut meme se 
demander pourquoi il n'est pas systematiquement 
offert a tous les acheteurs d'un Apple Itc (ou d J un 
nouvel Apple He... c). 

Je suis persuade que les Editions du P.S.L n'y ver- 
raient aucun inconvenient ! 



CR 
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MICRO-RECRE 



DOS 3.3 



ProDOS 



Pour 7 ronds ! 



JEU graphique essentieltement visvel. Son 
apparente simplicity ne lui enleve rien : il se 
revele capable, a I'usage, de developper 
I'esprit d'observction et la memoire. Parfaite- 
ment ! vous constaterez que, sur I'ecran, les 
ronds peuvent passer pour des ellipses : c'est 
ainsi que Ton obtienf des ronds ronds sur une 
imprimante ! 




La fonctlon RND est ^ 
bien pratique... quand 
il s'agit de meler aleatoi- 
rement des valeurs. 



Ronds ou ellipses ? Je 
vous loisse juge ! 



PI et PO sont utilises ^ 
pour comparer les 
dimensions et determiner 
quelle est la plus grande 
ellipse et quelle est la plus 
petite (lignes 360 et 370). 



CALL — 196 

bip. 



emet 



un ^ 



188 

ne 

120 
136 
146 
150 
168 
179 
188 



198 
288 
218 
228 
238 
248 



250 
266 
278 
288 
290 
390 
310 

328 
338 
340 
350 
368 
378 
388 
390 
480 



TEXT 
HSR 

REM 
REM 
REM 
REM 



PRINT CHR* C12>; CHR* <21> 
HCOLDR=* 3; ST = .1 



HOME 



a***************************** 
** CALCUL ALEATOIRE ** 
#* DES SEPT RAYONS ** 



FOR I = 
4 1);R<I) 



FOR I = 1 TO 7:A<I) - 55 + 1 * 2: NEXT 
7 TO 1 STEP - 1 : J = INT < RND <1> * I 
= A<J):A(J> = A<I)i NEXT 

REM a***************************** 
REM *# ET LE JEU PEUT CQMMENCER ## 
REM a***************************** 



UTAB 22: HTAB 1: PRINT "Uoici sept ellipses: Dite 
s les NUMEROS de la plus grande et de la plus pet 
i te H ; UTAB 1 
PI - 8:P0 = 80 
READ YC: READ XCiR = R + I :RA - R<R):FL = 8 
POKE 1635,48 + R 
FOR I - TO 6.3 STEP ST 
X - RAD * COS CI) + XC 
Y - (RAD / 4) * 
X > 279 OR X 
i GOTO 340 
NOT FL THEN 
TO X,Y 



IF 

IF 

HPLOT 

NEXT 



SIN 

< 



<I> / 
OR Y > 



3 + 
191 



YC 
OR 



Y < 8 THEN FL = 



HPLOT X,Y:FL - 1 



IF R(R) > PI THEN PI 
IF R(R) < P0 THEN P0 
CALL - 198 
IF R < 7 THEN 260 
OOSUB 660 



R<R) tPG = R 
R<R) fPP = R 



SUITE PAGrE 16 
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429 REM ****************************** 
439 REM ** LA QUESTION EST POSEE ** 
449 REM ****************************** 
459 : 

466 HOME : UTAB 21s CALL - 198: PRINT "RANG DE LA PL 

US GRANDE ~ > " ; s GOSUB 548 
479 PRINT R* j : IF VAL <R$> = P6 THEN GOSUB 598: GOT 

490 

489 P = PGr GOSUB 699 

499 PRINT : UTAB 22: HTAB 1: CALL - 198: PRINT "NUME 
RO DE LA PLUS PETITE ~ > "j; GOSUB 569 

560 PRINT R*;: IF UAL <R*> = PP THEN GOSUB 590! GOT 
529 

519 P = PP! GOSUB 689 
529 GOSUB 669 

539 HOME : MTAB 21s PRINT "<1> UN AUTRE TOUR <2> MENU 

<3> FIN ? a ;: GET R*; IF R* = "I" THEN RUN 

540 IF R* = H 2 W THEN PRINT : PRINT CHR* (4) "RUN MEN 
U" 

550 TEXT : HOME : END 

560 GET R%: IF ASC <R$) < 49 OR ASC <R*) > 55 THEN 

569 
579 RETURN 

589 : 

590 PRINT H IMMERSE : PRINT "EXACT": NORMAL s RET 
URN 

600 PRINT " "p INVERSE : PRINT "FAUX";: NORMAL s PRI 
NT u "Pi RETURN 

619 : 

620 REM ***#«#**##** ****************** 
630 REM ** CENTRE DES SEPT RONDS ** 
640 REM ****************************** 
650 : 

660 FOR I = 1 TO 2000? NEXT : RETURN 

670 DATA 70,144,69, 92 , 80 , 1 74 , 75 , 1 1 3 , 65 , 1 33 , 89 , 1 55 , 6 

0,160 



^ Notez que I on n'utilise 
™ qu'un seul GET pour les 
lignes 460 et 490... par 
mesure d'economie, lei, 
c'est sans importance, car 
le logkiel est court, mais 
parfois il s'agit d'une eco- 
nomic necessaire. 



Naturellement, ce petit 
jeu est modifiable h 
volonte, suivant votre 
inspiration. 



^ Centres des sept ellip- 



ses. 



IIIHHMIfHIIHIlllfflllflllHflllHIIItMIVIIffllll 



Comme toutes les revues TRES SPECIALISES, TREMPLIN MICRO ne peut 
s'offrir le luxe d'une campagne de publicity meme modeste. 

TREMPLIN MICRO 



ne compte que sur le soutien effectif de ses Lectrices et de ses 
Lecteurs. Parlez de lui h vos amis et vous eontribuerez, en 
aidant k sa diffusion, & en am^fiorer le contenu. MERCI ! 
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UTILITAIRE 



DOS 3.3 



ProDOS 



POKE... D'ACCORD, 

mais a quelle adresse ? 




OUS est-il d6\b arrive, pendant I'ecriture d'un programme en Basic, d'avoir besoin 
de connaitre I'adresse d'un point particulier de votre ecran ? Je suis sur que oui II 
y aevidemment la solution consistent a calculer cette adresse d'apres les parametres de 
la fiche n°4 de Tremplin Micro, mais vous pouvez aussi utiliser la petite routine ci- 
apres. Notez qu elle est relogeable (autrement dit : vous pouvez la charger a partir de 
n importe quelle adresse, puis y avoir acces par un CALL ADRESSE). 
Attention I Elle utilise, sans les sauvegarder, les adresses$6, $7, $8 de la page0 



PI ^flfl- 




r j to 


JSR 


■A- 1 f 1 F — ' 

$E6F5 




y o 


y 6 


STX 


$06 






r D to 


JSR 


$E6F5 


30 S- 

WWW KJ 


en 




TVA 
1 AH 




030?- 


48 




PHA 




030A- 


4A 




LSR 




30B- 


29 


63 


AND 


£$83 


330D- 


0? 


04 


OR A 


£$04 


030F- 


85 


08 


3TA 


$08 


031 i- 


63 




PLA 




0312- 


29 


18 


AND 


£$18 


0314- 


90 


02 


BCC 


$0318 


0316- 


69 


7F 


ADC 


£$7F 


0318- 


85 


87 


STA 


$07 


031A- 


0A 




ASL 




031B- 


@A 




ASL 




031C- 


5 


07 


ORA 


$8 7 


031E- 


13 




CLC 




031F- 


65 


06 


ADC 


$06 


0321* 


85 


07 


STA 


$07 


0323- 


AA 




TAX 




0324- 


A5 


08 


LDA 


$08 


0326- 


48 




PHA 




0327- 


20 


24 ED 


JSR 


$ED24 


032A- 


20 


48 F9 


JSR 


$F?48 


032D- 


A6 


07 


LDX 


$07 


032F- 


68 




PLA 




0336- 


4C 


41 F9 


JMP 


$F941 



Accepte I'expression venant apres la virgule... 

... on trouve )e resultat dans X et on le sauve en $06 

Deuxieme expression, smvant le CALL 768 

. . . ^galement recuperee dans X et passee dans A. 

Cette partie "cafcv!" est emprunt4e a la routine 
du moniteur $FBC1 (-1087). Celle-ci calcule 
I'adresse do DEBUT (ou de BASE, d'ou son nom 
de BASCALC) de la ligne d'ecran en cours. On 
trouve habtiuellement le resultat en $28 - $29, 
que nous avons remphc6es par $7 et $8. 
Pourquoi ne pas appeler directement $FBCI ? 
Tout simplement parce que cette routine modi- 
fie I'affichage. Finalement t la solution adoptee 
ici simplifie les choses. 



Annulotton de la retenue 

On ajoute HTAB a I'adresse de base 

Le resultat est sauvegorde dans $07 

Puis passe dans X 

Lecture de $08 

Sauvegarde au sommet de la pile 
Affiche la valeur decimale de X,A 
Affiche trois espaces 
Lectors do $07 

Recuperation de 08 sur la pile 
Affiche les regtstres A, X en hexa 




UTILISATION : CALL 768, hi, V {H = 0-39 - V = 0-23) en mode direct 

Avoc I'Amper.and : Taper POKE 1014,0 : POKE 1015,3. II suffira alors de taper *,H,V... pour obtenlr le resultat. 
Sauvegarde du programme : BSAVE ADRECR, A$300, L$33 
Chargement t BLOAD ADRECR 
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DOS 3.3 



ProDOS 



10 

28 

39 
48 



MB 

Desassemblage 
pratique 

TEXT : PRINT CHR* (12); CHR* (2 
1): PRINT CHR* <4) U BL0A[> EXAROUT 
.LM": HOME 

INVERSE : HTAB 4: PRINT " LI STAG 
E COMMODE DES ROUTINES LM ": NORM 
AL s POKE 34,2 

VTAB 3: INPUT "ADRESSE -> " ;AD$ 

; IF AD* ■ THEN 69 

CALL - 998s HTAB 29: PRINT "DEC 



Le programme de Clement Renard 
vous donne I'odresse decimale d'une 
routine dont vous ne possedez que 
Tentree hexa.,, et disassemble, sur 
votre ecran, autant constructions 
que vous le desirez. 



62 



76 

80 
99 



CALL 768, AD$ 

VTAB 23: PRINT : UTAB 24: PRINT 
"<!> SUITE <2> AUTRE <3> FIN DE T 
RAUAIL " ;: SET Rtt POKE - 1*348, 
0: IF R$ < "t" OR R* > "3" THEN 6 
8 

PRINT : IF R$ = "1" THEN HOME : 

CALL 823: GOTO 60 
IF R$ = U 2 U THEN HOME : RUN 39 
TEXT : HOME ! END 



0300- 


28 


BE 


DE 


JSR 


*DEBE 


8303- 


20 


7B 


DD 


JSR 


$DD7B 


0384- 


20 


FD 


E5 


JSR 


*E5FD 


0389- 


A8 


FF 




LDY 


£*FF 


030B- 


C8 






I NY 




030C- 


Bl 


5E 




LDA 


<*5E> 


838E- 


F0 


03 




BEQ 


$0313 


0310- 


18 






CLC 




831 1- 


69 


80 




ADC 


£*80 


0313- 


99 


88 


92 


STA 


$0288 


8316- 


D0 


F3 




BNE 


S03BB 


0318- 


28 


C7 


FF 


JSR 


$FFC7 


031B- 


20 


A7 


FF 


JSR 


*FFA7 


031E- 


A6 


3E 




LDX 


*3E 


0320- 


A5 


3F 




LDA 


*3F 


0322- 


C0 


03 




CPY 


£S83 


8324- 


B0 


07 




BCS 


$032D 


326- 


C8 


01 




CPY 


£*81 


0328- 


D8 


03 




BNE 


*832D 


032A- 


8A 






TXA 




832B- 


A2 


00 




LDX 


£*88 


032D- 


86 


3A 




STX 


$3A 


832F- 


85 


3B 




STA 


$3B 


0331- 


28 


24 


ED 


JSR 


$ED24 


8334- 


20 


3E 


FD 


JSR 


*FD8E 


8337- 


A9 


1 2 




LDA 


£$12 


0339- 


4C 


63 


FE 


JMP 


*FE63 



CHKOPN : cherche la virgule 

FRMEVL : ©value la formule et ploce leresultat dons FAC 
FRESTR : est-ce une chame ? 
Initialisation [on va avoir $FF + 1 = $0 ) 
Incrementation de Y 

Y On trouve en 5E-5F I'adresse de lo chame 
Si 0, direction 31 3 

Annulation de la retenue 

Plus $80 ($31 =$BK..$41 = $Cl,etc.) 

Y Stockoge dans le buffer d'enlree 
Encore un tour ! 
ZMODE : mode 

GETNUAA : Lit un nombre sur 2 octets 
Resultat dans A2L... 
♦„etA2L + 1 ($3Eet$3F) 

Le nombre est-il sur un ou deux octets ? 
S'il est sur 1 H il faut transferer X dans A, puis mettre 
dans X. 

S'il est sur deux octets, on soute a $32D 

Preparation de f J affichage des instructions 

LINPRT : Affiche les 2 octets de X, A (decirnaux) 
CROUT : Envoie le caradere RET 
Nombre destructions d disassembler 
LIST2 : Disassemble A instructions* 



*390:20 BE DE 28 7B DD 2B FD E5 A8 FF C8 SAUVEGARDE SUR DISQUETTE : 

Bl 5E F0 03 18 69 89 99 03 02 DB F3 20 BSAVE EXAROUT. LM P A$300, L$3C 

C7 FF 28 A7 FF A6 3E A5 3F C0 03 B8 07 C VERIFICATION {EN MODE DIRECT) : 

01 D0 83 8A A2 08 86 3A 85 3B 20 24 ED 1 = 0: FOR I = 76B TO 827 * T = T + PEEK (I) 

20 8E FD A9 12 4C 63 FE NEXT: PRINT T M S vtM;7$36. 



IB 



GUY HACHETTE 



DOS 3,3 



Avec carte 80 colonnes 



CATALOGUE THEMATIQUE 



NUTILE d'essayer ce programme 
si vous utilisez ProDOS : it ne 
fonctionne qu'avec le DOS 3.3 d'ori- 
gine, mais vous donnera, apres quel- 
ques secondes d'attente, le catalogue 
complet de vofre disquette, dans 
I'ordre alphabetique, et d'une 
maniere aussi "thematique" que pos- 
sible {le tout sur 80 colonnes). 

Pourquoi fes guillemets ? parce que le clas- 
sement par grands themes ne sera effectif 
que dans la mesure ou vous aurez adopte, 
pour titrer vos programmes, une certain© 
methode. 

Quand un programme comportera pfu- 
sreurs sous-programmes (et notamment 
des routines en langage machine, ou bien 
des fichiers), vous devrez proceder de la 
maniere suivante (le nom PROGRAMME est 
ici choisi arbitrairement) : 

— Basic = PROGRAMME 

— Langage machine = PROGRAMME LM 

— Fichier = PROGRAMME. FIC 

l essentiel 6tant que tous les elements com- 
mencent par le me me prefixe et soient tous 
plus grands (alphabetrquement parlant) 
que le programme Basic, moyennant quo!, 
sur votre ecran, cela donnera : 




PROGRAMME 

— PROGRAMME, FIC 

— PROGRAMME 1M 

Si vous desirez supprimer le classement 
alphabetique, iJ vous suffira d'eliminer les 
lignes 70 a 90, puis de reecrire la ligne 70 : 

70 N = N + 1 : C$(N) = C$(0 : GOTO 50 

Et puis, dans la foulee, efiminez aussi la 
ligne 130. Vous disposerez alors d'un cata- 
logue (rapide) sur 80 colonnes, capable de 
vous presenter (sur un seul <§cran), plus de 
50 titres (51 exactemenl), Modifiez oussr la 
ligne 280. + 1 puisqu'il n'y aura plus de trl. 



19 
28 
30 

48 
59 
60 
78 
88 

90 



198: POKE 
239 



1 6363 7 B : W 



GOSUB 388 

TEXT : PRINT CHRf <4>»PR£3 B : PRINT : HONE ! DIM 
PRINT "INSERER LA DISQUETTE , ET RETURN" ; CALL - 
" 1^384,128: POKE - 16368,9: PRINT s GOSUB 
& C$<0) :N = 0:1 = 

I " 1 + ll IF C*<I) = »" TKEN 100 
IF MID* <C*U>,2,1> - CHR$ <8) THEN 58 

FOaV m lF * C Vnt > WW " n ™ EN C$<N> = C *<*> ! GOTO 50 

EXT STEP " 1 J IF C$U) < C*<K> THEN C*<K 4 |) = c*<K): N 

C$(K + 1> - C*<I)i GOTO 50 (SUITE PACE 20} 
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CATALOGUE THEMATIQUE (suite et fin) 




168 HOME s INVERSE ! PRINT " CATALOGUE CQMPLET DE LA DISQUETTE " j s NORMAL 

OR I = 1 TO 20:TI* = TI* + " u : NEXT : PRINT LEFT* <TI*,46): POKE'34, 

2 

1 IB U = 2;H = 9 : HOME : GOSUB 270 
128 FOR I - 1 TO N 

139 U$ = " - "s IF LEFT* <C*(I),3) < > LEFT* <C*Ci - 1),3) THEN y* = HU i I 

f y < > 2 then y = y + i 

148 V = y + 1 ! IF y < 20 THEN 180 

159 IF H = THEN V « 3:H = 27: GOTO 188 

160 IF H = 27 THEN V = 3:H = 54: SOTO 188 
170 GOSUB 219: HOME :V = 3:H - 0: GOSUB 276 
188 POKE 1483,H: VTAB V 
190 PRINT y* f LEFT* <C*(I),20> 

200 NEXT : GOTO 308 

210 VTAB 22: POKE 1403,0: PRINT "ENFQNCEZ UNE TOUCHE POUR CONTINUER ";■ GET 

R*: POKE - 14348,0! IF ASC (R*> < > 18 THEN RETURN 
220 PRINT i yTAB 22: CALL - 868: INPUT "TITRE DU PROGRAM A LANCER : 11 ; RP* 

: IF RP$ = '"' THEN RETURN 
230 FOR S = 1 TO N: IF C*CS> = RP* THEN VTAB 21: PRINT : GOTO 250 
240 NEXT Si POKE 216,0: VTAB 22: CALL - 848: CALL - 198: INyERSE : PRINT " 

CE PROGRAMME N'EXISTE PAS ";s NORMAL : GET R*: PRINT R*: GOTO 110 
250 ONERR GOTO 370 
260 PRINT CHR* C4)"RUN"RP* 
270 yTAB 21 j POKE 1403,0: PRINT TI*: RETURN 

280 HOME s yTAB 12: INVERSE : PRINT "PATIENCE SVP: LECTURE ET TRI": NORMAL 
290 : PRINT ! PRINT "SI uous ctesirez lancer un programme par un RUN, tapez un 
Ctrl-R, puis le titre choisi <qui doit e>idemment corresponds a un pro 

gramme ecr i t en BASIC) iJ : RETURN 
380 UTAB 22: POKE 1403,0: CALL - 198: PRINT " LE CATALOGUE DE DISQUETTE CO 

MPTE ";: INyERSE : PRINT I - 1 ; : NORMAL : PRINT 11 RUBRIQUES — » ; 
310 R* = "Mbut Fin Autre — > " : CALL 878 ,R*: POKE 1404,40: GET R* 
320 IF ASC CR$) « 18 THEN GOSUB 220: GOTO 308 
330 PRINT R* : IF R* = "D" THEN 110 
340 IF R* = "A" THEN RUN 28 
350 IF R* < > "F" THEN 308 
340 TEXT : HOME : END 
370 : 

388 ETURN = ^ 8 T ° 995S READ R! P ° KE I,RS NEXT : P ° KE 1OI4 ' 0! P0KE 1015 »3: R 

DATA 32, 227,223,32, 247, 175,24, 32,1 7, 174,1 74, 84,142,0,142,156, 179,18?, 198 

,180,240,74,43,65,32,48,178,169,140,202,202,202,221 ,198,180,240,250,232,1 
38,72,54,237,156,179 1,1 

DATA 233,3,32,221,227,148,194,170,134,202,189,198,180,41,127,145,158,152 

,208,244,145,157,145,131,280,165,158,145,131,200,165,159,145,131,24,165,1 

31,105,3,133,131,144,2,230,132,32,48,178,144,174,176,167,140,0,152,145,13 
1 , 96 

410 DATA 32,190,222,32,123,221,32,253,229,133,96,148,0,177,94,201,45,144,6,2 
81,90,176,2,144,2,9,128,32,237,253,208,194,94,144,234,94 



390 
400 
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Votre bibliotheque 
INFORMATIQUE 

I Vers I 'ordinateur intelligent f 



par Guy-HACHETTE 



Introd 
a 1' INTEL 

flRTIR 

sur micro- 


action 

LICENCE 
CIELLE 

ordinateur 

j^^Mke James 





Gu'est-ce que Intelligence Artificielie (LA. pour les ini- 
ties} ? Est-il possible de concevoir, sur un ordinateur per- 
sonnel — et natamment sur un Apple — des programmes 
relevant de I'l.A. ? 

Louvrage de Mike James (Eyrolles), traduit par Edith 
Schomberg, repond non seulement a ces questions, mais a 
plusieurs autres, non moins interessantes. 
Vous lirez le chapitre I com me un roman r et peut-etre 
serez-vous d'accgrd avec I'auteur lorsqu'il ecrit : "Le cer- 
veau hurnain est-il simplement un ordinateur tres compli- 
que ou applique-MI un principe encore inconnu ? Sr nous 
ne sommes rien de plus que des ordinateurs (ce qui est mon 
opinion personnelle), les limites de I'ordinoteur sont alors 
egalement les notres", J'avaue partager cette opinion, 
mais etre incapable d'expfiquer pourquoi... ce qui ne doit 
pas vous paraitre tres logique,.. 

Revenons a cette 'Introduction a I'lntelligence Artificielle" 
(sur micro-ordinoteur) pour souligner que les exemples sent 

donnes en Basic (MICROSOFT) et seront facilement testes sur Apple, sans modifications importantes. 
Vous apprendrez ainsi comment etrire un programme de simulation du fonctionnement de la memoire. 

Conclusion : une bonne opproche d'un sujet qui a 
deja fait couler beaucoup d'encre, 
mars demeure assez mal connu, 

I Guide pratique pour Apple lie 

Nombreux, parmi les utilisateurs d'Appie lie sont 
ceux qui disposent, sur leur machine, du systeme 
CP/M. 

Jacques Neel et Jean-Claude Hillion ont tire parti, 
pour realiser leur ouvrage, d J une brochure qui a servi 
de manuel de base a Cmstitut d'Etudes Politiques de 
Paris, dans le cadre des travaux pratiques 
d'informatique ! 

lis ont voulu realiser un guide pratique aussi clair que 
possible et il est certain que, a trovers feurs explica- 
tions et exemples, la gestion de fichiers personnels 
paraftra plus facile a I'amateur, 

Le materiel uttltse par les outeurs est un Apple He, 
mais tout ordinateur personnel travaillant sous CP/M 
donnera les m ernes resultats. 

Plusieurs annexes : memento des procedures usuel- 
les, procedures 6 respecter en cas d'arret, tableau 
synoptique des commandes MS-DOS, tableau synopii- 
que des commandes PROLOGUE, etc. 





Id 
gestion 
de fichiers 

SOUS CP/M sur 

g apple 2e 
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FONTE DE CARACTERES 



FONTE 




Est-elle inedite ? Oui 
Peut-on la copier ? Oui 

Comment I'utiliser ? 

Facilement, apres avoir compris et essaye 
notre petit programme DEMO. 



D 



Ji 



! ( ) *+ 

, - . /01 23456 
769: ; <-=->?aft 
BCDEFGHI JKL 

mnopQRSTuuij 

cdef ghi j kl m 
nopqrst uvwx 
yzEUE <ii 



ANS notre mini-programme, il n'est 
pas tenu cornpte des differences de 
chasse (encombrement lateral de la lettre) 
existant entre les caracteres minuscules et 
majuscules.., ou encore entre les lettres 
dites normales et les caracteres etroits ("!" 
ou "i", par exemple), 

[.'utilisation — avec espacement proportion- 
nel — de FONTE, SPECIALE exige une petite 
routine facile a programmer, mais compor- 
tant un certain nombre d'lF, 

Si I'application que vous en tirerez vous 
parait tres interessante, n'hesitez pas 6 
nous la soumettre. Nous la publierons pour 
en faire profiter les lecteurs de Tremplin 
Micro, 

Ne manquez pas de re I ire les programmes des pages 12 et 13 
bleme, rnais d'une maniere un peu different©, 

Notez que votre FONTE. SPECIALE pourra etre chargee a une autre adresse que celle 
choisie ta. Un simple BLOAD FONTE.SPECIAIE, A adresse permet de le faire, mais 
n oubhez pas de poquer les nouvelles valeurs aux adresses 232 et 233, en vous inspirant 
des conseils donnes par ailleurs (notamment page 12). 




ils traitent le rneme pro 



Sur votre clavier (mode AZERTY), les caracteres de la FONTE.SPECIALE 
correspondent exactement aux caracteres ci-apres de I'Apple : 

L 'niVit'nJ * + ' " ■ /6 1 234 56789 : '' <= >?^ABCDEFGHI JKLMNO 
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I 



FONTE 
DEMO 



No pas oublier de proteger 
votre fonte par LOAAEM (ici : 
adresse du premier ^ 
octet -I- longueur). 

Ces valeurs concernent A 
I'adresse $6000 
($00/60 = 00/96 en mode 
decimal) . 



POKE 49233 ,fl = mode + 
TEXT, 



L'ecran graphique haute 
resolution mixte se com- 
pose de 280 points hori- 
zontaux et de 160 points 
verticaux (lignes 1 a 20 
de l'ecran texte). 



Si barre d'espacement ^ 
H = H + 7 



POKE 49232 ,Q permet ^ 
de retrouver la page 
graphique - mars sans 
effacement., au contraire 
de HGR. 



10 TEXT : NORMAL : PRINT CHR$ (12) ; CHR$ <21>: HO 
ME 

20 PRINT "UTILISATION DE LA FONTE SPECIALE DE TM 2 
ii . 
* 

30 FOR I = \ TO 10:T$ =* T$ + a " ; NEXT : PRINT 

T*: POKE 34,3 
40 LIST 50,189 

59 AD = 24574 :L = 4498; REM AD=ADRESSE FONTE - L=N 

OMBRE D' OCTETS 
46 LOMEM: AD + L 

76 PRINT CHR$ (4>"BL0AD FONTE , SPECIALE ,A$6000" 
80 POKE 232,0: POKE 233,94 
90 HGR : HCDLOR^ 3? SCALE= 1: ROT- 6 
190 F$ = m \* + CHR* < 34) + " £ 2345478? 
: ;<^>?&ABCOEFGHIJKLMNOPQRSTUWXYZ D g^^^bcde-fgh 
jklmnopqrstuuwxy7 ^ Cife" " 
110 POKE 49233,0 
120 GOSUB 329 

130 HOME : PRINT "MOICI LES CARACTERES A TAPER , 

[ 

ANS LE HEME ORDRE QUE CEUX DE LA FONTE" 
140 PRINT i PRINT F* : PRINT 

150 PRINT : PRINT : PRINT "Pomme ouverte - 4" : PRIN 

T "Pomme -ferm^e = "": PRINT 
140 PRINT " CTRL-F yous pour revoir cette page": PRI 

NT "CTRL-C pour terminer" 
170 GOSUB 32Q 
180 H = - 35:U = 15 

590 UTAB 21: CALL - 958: PRINT : VTAB 22 
200 CALL - 198; PRINT " CATACTERE DESIRE ? -> " ; : G 
ET A* 

210 IF A* = CHR3 (6) THEN POKE 49233,01 GOSUB 320 

i GOTO 190 
220 IF A* » CHR* (3) THEN 350 

236 IF A* = CHR* <32) THEN H = H + 7: GOTO 198 
240 FOR 1 = 1 TO 95: IF A$ =* MID* (F$,I,1) THEN 24 
G 

250 NEXT i GOTO 190 

260 H = H + 15: IF H > 243 THEN H = &U = y + 20 

270 IF U > 140 THEN HGR 

280 POKE 49232,0 

290 DRAW I M AT H P V 

300 GOTO 190 

320 UTAB 22: HTA8 4: PRINT "PRESSEZ UNE TOUCHE POUR 
CONTINUER" 

330 CALL - 198: POKE - 14368,0: WAIT - 14384,128 

,127: POKE - 14368,0 
340 RETURN ^ 
350 TEXT : HOME : END 



Et maintenant, tapez tranquillement, en plusieurs fois, les pages 24 6 29 en veYifiant, a la fin de chaque 
colonne et en sauvegardant a cheque fois fa totaltte par un BSAVE FONTE. SPECIALE, A24576, L4498 
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f FONTE SPECIALE 



6000- 


64 


02 


D8 


08 


D9 





F2 





6808- 


07 


1 


3C 


01 


67 


01 


95 


01 


6010- 


D3 


01 


E0 


81 


F3 


1 


07 


82 


6@ I 8- 


32 


02 


4E 


8 2 


5 B 


02 


69 


82 


60 20- 


76 


82 


SC 


8 2 


CD 


02 


E9 


2 


6028- 


1A 


03 


4F 


03 


7D 


8 3 


AD 


3 


6030- 


E9 


03 


0F 


4 


4E 


Lii 4 


8A 


04 


6038- 


9B 


04 


AD 


4 


CD 


04 


E6 


4 


6848- 


05 


05 


2A 


85 


5D 


85 


9B 


05 


6848- 


PB 


5 


00 


06 


4F 


86 


7D 


86 


6050- 


A4 


06 


El 


8 6 


1 D 


87 


36 


07 


6058- 


5E 


07 


93 


87 


B3 


07 


06 


03 


6 6 @ - 


45 


8 8 


86 


8 


BD 


83 


FF 


08 


6068- 


41 


09 


77 


09 


98 


9 


D7 


9 


6070- 


8D 


0A 


56 


8A 


92 


0A 


C4 


0A 


6073- 


F 7 


0A 


2A 


8 8 


55 


9 B 


86 


0B 


6080- 


BB 


0B 


D2 


0B 


84 


0C 


34 


C 


6038- 


6B 


0C 


94 


0C 


C8 


0C 


F4 


0C 


60 90- 


17 


8D 


4C 


8D 


7D 


0D 


94 


0D 


6098- 


AE 


0D 


E8 


0D 


F9 


8D 


2F 


0E 


60A0- 


5C 


0E 


89 


8E 


B9 


0E 


E4 


0E 


60A3- 


FE 


0E 


27 


0F 


46 


0F 


71 


0F 


60B8- 


94 


0F 


C9 


0F 


Fl 


8F 


24 


1 


60BB- 


4C 


I 


7B 


1 


AB 


1 


DA 


10 


60C0- 


28 


1 1 


61 


1 1 


61 


1 1 


61 


1 1 


60C8- 


6A 


1 1 


52 





9 


00 


e e 


Ei fl 


68D8- 


49 


89 


92 


92 


92 


92 


1 2 


00 


60D8- 





2D 


3E 


37 


2D 


3E 


37 


2D 


68E0- 


3E 


37 


2D 


3E 


37 


2D 


3E 


77 


68E8- 


1 1 


3F 


2E 


35 


3F 


56 


49 





60FG- 


90 


00 


2D 


D 


2D 


3E 


FF 


3F 


60F8- 


4E 


4D 


31 


3F 


1 F 


3F 


96 


92 


61 08- 


92 


92 


49 


4 5* 


09 


08 


29 


09 


610 8- 


6D 


29 


3E 


DF 


37 


6D 


29 


3E 


61 1 0- 


DF 


FF 


2A 


2D 


2D 


2D 


2D 


3E 


6113- 


3F 


3F 


3F 


3F 


4E 


6D 


29 


3E 


6120- 


DF 


F F 


2A 


2D 


2D 


2D 


2D 


3E 


6128- 


3F 


3F 


3F 


3F 


4E 


6D 


29 


3E 


61 36- 


DF 


37 


6D 


29 


3 F 


DF 


B7 


49 


6138- 


49 


89 


00 


49 


49 


35 


FF 


2A 


6140- 


2D 


2D 


35 


3F 


3F 


3F 


37 


6D 


6148- 


35 


FF 


37 


2D 


2D 


2D 


1 5 


3F 


61 50- 


3F 


3F 


4E 


6D 


35 


FF 


FF 


13 


6158- 


2D 


2D 


2D 


F5 


3F 


3F 


3F 


4E 


61 6@~ 


29 


3E 


56 


49 


81 





29 


29 


61 68- 


6D 


09 


35 


FF 


3 B 


3F 


37 


6D 


6170- 


6D 


35 


FF 


3F 


3F 


0E 


2D 


0D 


61 73- 


35 


BF 


35 


BF 


6D 


39 


3F 


1 F 



VERIFICATION ; T = ; FOR I = 24576 TO 24959 ; T 
= T 4- PEEK (I) : NEXT ; PRINT T 
RESULT AT ; 27812 
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6180- BF 6D 2D 2D 3E IF FF BF 
6133- 6D 29 2D F5 3F DF 3B 56 
6190- 49 49 09 00 09 49 49 29 
6198- 35 DF 6E IE FF 9B 2D 0D 
61A0- 0D 2D 15 3F 3F 3F 3F 3F 
61A8- 17 6D 29 6D 29 IE FF DB 
61B0- IB 37 6D 49 89 AD FF DB 
61B8- DB 37 6D 49 49 29 3E DF 
61C0- 3F FF 3B 8E 2D 2D 2D 2D 
61 C8- F5 3F DF 3F 56 49 49 49 
61D0- 01 0© 37 2D 3E 77 31 3F 
61D8- 96 92 92 92 49 81 80 52 
61E0- 29 3E 37 35 37 35 37 35 
61E3- 37 35 37 35 37 2D 3E 56 
61F8- 89 00 00 AD 3F 0E 35 37 
61F8- 35 37 35 37 35 37 35 BF 
6200- 2D IE B7 49 01 00 49 52 
6203- 49 11 FF 9B 6D 29 4D F5 
6210- FF FF 77 2D 2D F5 3F FF 
6213- 13 2D 2D 2D 2D F5 IB 3F 
6228- BF 2D 2D AD FF FF BF 6D 
6223- 29 4D F5 DB 87 49 49 80 
6230- 80 92 92 4A 09 35 37 35 
6238- FF 9B 2D 2D 2D 2D 35 3F 
6240- 3F 3F 3F 77 49 35 37 35 
6243- B7 49 49 80 00 0A 92 92 
6250- 92 92 20 3E 77 31 3F 4D 
6258- 01 8 6F 92 92 12 2D 2D 
6268- 3E 3F B7 92 4A 49 00 00 
6263- 92 92 92 92 4A 3A 37 2D 
6270- 3E B7 49 @8 ©0 49 49 49 
6278- 35 BF 35 BF 35 BF 35 BF 
6280- 35 BF 35 BF 35 B7 49 49 
6283- 49 00 80 89 29 2D 2D 2D 
6290- 15 3F 3F 3F 3F 37 2D 4D 
6298- 49 35 FF DB 3B 37 2D 40 
62A0- 49 35 FF DB 3B 37 2D 4D 
62A8- 49 35 FF DB 3B 37 2D 4D 
62B8- 49 35 FF DB 3B 37 2D 4D 
6288- 49 35 FF D8 3B 37 20 2D 
62C8- 2D 2D F5 3F 3F 3F B7 49 
62C3- 49 49 1 80 3F 09 2D 3E 
62D0- 3F 17 20 2D 3E 37 2D 3E 
62D3- 37 2D 3E 37 2D 3E 37 2D 
62E0- 3E 37 2D 3E B7 49 01 08 
62E8- 29 29 2D 2D 2D 15 3F 3F 
62F0- 3F 3F 37 2D 4D 49 35 37 
62F8- 35 FF DB 2A 2D 2D F5 3F 
6300- 3F 3F 17 2D F5 3F 37 2D 
6308- 3E 37 2D 2D 2D 2D 35 3F 
6310- 3F 3F 3F 56 49 49 49 88 

VERIFICATION : T — : FOR I = 24960 TO 25367 : 
T = T + PEEK (I) : NEXT ; PRINT T 
RESULTAT ; 3394a 
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2D 


AD 


3F 


3F 


6420- 


29 


3E 


DF 


3B 


BF 


2D 


2D 


2D 


65B3- 


3F 


3F 


37 


2D 


40 


49 


35 


FF 


6423- 


2D 


15 


3F 


3F 


3F 


3F 


37 


2D 


65C0- 


D B 


3B 


37 


2D 


40 


49 


35 


F F 


6430- 


4D 


49 


35 


FF 


DB 


3B 


37 


2D 


65C8- 


DB 


3B 


37 


2D 


20 


20 


2D 


F5 


6433- 


4D 


49 


35 


FF 


DB 


3B 


37 


2D 


65D0- 


3F 


3F 


3K 


3F 


r: >..:;. 


49 


49 


49 


6440- 


2D 


2D 


2D 


F5 


3F 


3F 


3F 


B7 


65D9- 


01 





29 


29 


2D 


2D 


2D 


1 c 5 


6448- 


49 


49 


49 


1 


00 


2D 


29 


2D 


65E0- 


3F 


3F 


3F 


3F 


37 


2D 


40 


49 


6450- 


2D 


2D 


15 


3F 


3F 


3F 


3F 


37 


65E3- 


35 


FF 


DB 


3B 


37 


2D 


3E 


37 


6453- 


2D 


4D 


49 


35 


FF 


DB 


3B 


3/ 


65F0- 


2D 


3E 


37 


2D 


3E 


37 


2D 


4 D 


6460™ 


2D 


4D 


49 


35 


FF 


DB 


3B 


37 


65F8- 


49 


35 


FF 


DB 


3B 


37 


20 


2D 


6468- 


2D 


20 


2D 


2D 


35 


3F 


3F 


3F 


6600- 


2D 


2D 


F5 


3F 


3F 


3F 


B7 


49 


6470- 


3F 


4E 


49 


09 


35 


37 


35 


FF 


6603- 


49 


49 


1 





00 


2D 


2D 


2D 


6478- 


DB 


IB 


37 


2D 


2D 


2D 


2D 


F5 


661 0- 


2D 


1 5 


3F 


3F 


3F 


3F 


37 


2D 


6480- 


3F 


3F 


3F 


B7 


49 


49 


49 


8 1 


661 3- 


4D 


49 


35 


FF 


DB 


3B 


37 


2D 


6488- 





B7 


92 


4A 


3A 


37 


2D 


3E 


6620- 


4D 


49 


35 


FF 


DB 


3B 


37 


2D 


6490- 


B7 




3A 


37 


2D 


3E 


B7 


49 


6628- 


4D 


49 


35 


FF 


DB 


3B 


37 


2D 


6498- 








92 


92 


4A 


3A 


37 


2D 


6630- 


40 


49 


35 


FF 


DB 


3B 


37 


2D 


64A0- 


3E 


B7 


4A 


3A 


37 


2D 


3E 


77 


6638- 


4D 


49 


35 


FF 


DB 


3B 


37 


20 


64A8- 


F5 


6F 


01 


00 


92 


92 


4A 


89 


6640- 


2D 


2D 


2D 


F5 


3F 


3F 


3F 


3F 


VtRlFlCATlON i 


T = Q 


: FOR 1 = 


25368 TO 25775 : T 


VERIFICATION : T 


= 


: FOR 1 = 


25776 TO 26183 


: T 



= T + PEEK (I) : NEXT : PRINT T 
RfcSULTAT : 30425 



= T + PEEK (I) : NEXT ; PRINT T 
RESULTAT : 32034 



TREMPLIN MICRO 



2a 



mammmmmma\ 



f FONTE SPECIALE 



6648- 

6650- 

6658- 

6660- 

6663- 

6670- 

6678- 

6680- 

6683- 

6690- 

66?B- 

66A0- 

66A8- 

66B0- 

6 683- 

66C0- 

66CS- 

66D0- 

6608- 

66E0- 

66ES- 

66F0- 

66F3- 

6780- 

6708- 

671 8- 

6718- 

6720- 

6728- 

6730- 

6738- 

6740- 

6748- 

6750- 

6758- 

6760- 

6768- 

6770- 

6778- 

6780- 

6788- 

6790- 

6799- 

67A0- 

67AS- 

6780- 

6783- 

67C0- 



56 49 
2D 2D 
37 2D 
2D 2D 
3E 37 
2D 35 
49 49 
2D 35 
3E 37 
35 3F 
2D 3E 
49 09 
15 3F 
49 F5 
2E 6D 
3F 2E 
3F 2E 
3F 2E 
3F 3F 
6D 29 
2E 60 
60 49 
2D 2D 
77 2D 
2E 60 
60 49 
49 49 
2D 3E 
37 2D 
3E B7 
2D 3E 
37 2D 
13 6D 
2D 2D 
56 49 
09 35 
35 FF 
IE 3F 
3F 3F 
3F 2E 
37 2D 
3F 56 
2D 3E 
37 2D 
3E 37 
3F 3F 
29 2D 
3F 3F 



49 49 Cfl 

2D 35 3F 

3E 37 2D 

35 3F 3F 

2D 3E 37 

3F 3F 3F 

00 00 00 

3F 3F 3F 
2D 3E 37 
3F 3F 37 
37 2D 3E 
00 49 29 
3F 3F 3F 
DB DB 3F 
09 2D 35 
60 49 29 
6D 49 29 
2D 2D 2D 
B7 49 49 
6D 49 35 
49 35 FF 
35 FF DB 
2D 35 3F 
4D 09 35 
49 35 FF 

35 FF DB 
@0 00 49 

37 2D 3E 

3E 37 2D 

49 81 00 

37 2D 3E 

3E 37 2D 

49 2D 3E 

2D 2D IE 

49 69 00 

FF DB 3F 

DB 3F 2E 

DF 3F 2E 

37 2D 2D 

6D 29 AD 

4D 09 2D 

49 49 49 

37 2D 3E 

3E 37 2D 

2D 2D 2D 

56 49 49 

4D 2D AD 

37 2D 4D 



2D 
3F 3F 
3E 37 

3F 37 
2D 2D 

3F 56 

29 2D 

3F 37 

2D 2D 

2D 3E 

B7 4? 

2D 2D 

37 2D 

2E 35 

3F FF 

3E DF 

3E DF 

2D 1 E 

49 1 

FF DB 

DB 3F 

3F 1 7 

3F 3F 

FF DB 

DB 3F 

3F 56 

2D 3E 

37 2D 

3E 37 

9 49 

37 2D 

3E FF 

FF DB 

3F 3F 

2D 
2E 6D 
6D 69 
2D 2D 
AD 3F 
3F DF 
3E DF 

01 

37 2D 

3E 37 

2D 3E 

09 00 

3F 3F 

6D 8 9 



29 
3F 
2D 
2D 
2D 
49 
2E* 
2D 
2D 
37 
49 
2D 
4D 
3F 
IB 
DB 
DB 
3F 

00 

3F 

2E 

2D 

3F 

3F 

2E 

49 

37 

3E 

2D 

49 

3E 

DB 

37 

3F 

4D 

49 

2D 

F5 

1 F 

3B 

DB 

3 5 

3E 

2D 

3F 

DB 

3F 



67G3- FF IB Ff- 3B 37 2D 4D 60 
67D0- 09 35 FF IB FF 3B 37 2D 
67D3- 4D 6D 09 35 FF 1 B FF 3B 
67E0- 37 2D 4D 6D 09 35 FF 1 B 
67E8- FF 3B 37 2D 4D 6D 9 35 
67F0- FF IB FF 3B 37 2D 4D 6D 
67FS- 09 35 FF IB FF 3B 87 49 
680 0- 49 49 49 1 06 00 2D 4D 
6808- 2D AD 3F 3F 3F 3F 37 2D 
6310- 4D 49 35 FF DB 3B 37 2D 
6318- 4D 49 35 FF DB SB 37 2D 
68*0- 4D 49 35 FF DB 38 37 2D 
6323- 4D 49 35 FF DB 3B 37 2D 
6830- 4D 49 35 FF DB 3B 37 2D 
6333- 4D 49 35 FF DB 3B B7 49 
6840- 49 49 09 00 00 29 2D 2D 
6848- 2D 15 3F 3F 3F 3F 37 2D 
6850- 4D 49 35 FF DB 3B 37 2D 
6353- 4D 49 35 FF DB 3B 37 2D 
6360- 4D 49 35 FF DB 3B 37 2D 
6868- 4D 49 35 FF DB 3B 37 2D 
6870- 4D 49 35 FF DB 3B 37 2D 
6878- 2D 2D 2D F5 3F 3F 3F B7 
6B80- 49 49 49 81 00 AD 29 2D 
6883- 2D 2D 1 5 3F 3F 3F 3F 37 
6890*- 2D 4D 49 35 FF DB 3B 37 
6398- 2D 4D 49 35 FF DB 3B 37 
68A0- 2D 4D 49 35 3F 3F 3F 3F 
68A8- 37 2D 2D 2D 2D DE DB 3B 
68B0- 37 2D 3E 37 2D 3E B7 49 
68B8- 49 49 09 09 09 29 2D 2D' 
68C0- 2D 15 3F 3F 3F 3F 37 2D 
68C3- 4D 49 35 FF DB 3B 37 2D 
6SD0- 4D 49 35 FF DB 3B 37 2D 
63D8- 4D 49 35 FF DB 3B 37 2D 
63E0- 4D 49 35 FF DB 3B 37 2D 
68E8- 4D 6D 35 3F FF 1 B 3F 2E 
68F0- 2D 2D 2D 2D 3E 3F 3F 3F 
68F8- B7 49 49 49 01 08 2D 29 
6900- 2D 2D 20 15 3F 3F 3F 3F 
6903- 37 2D 4D 49 35 FF DB 3B 
6910- 37 2D 4D 49 35 3F DF IB 
6918- 3F 2E 2D 2D 2D 35 3F 3F 
6920- 3F 3F 2E 6D 49 2D 3E DF 
6928- DB 3F 2E 60 49 29 3E DF 
6930- DB 3F 2E 6D 49 29 3E DF 
6938- DB 3F 56 49 49 49 1 00 
6940- 2D 29 2D 2D 2D 1 5 3F 3F 
6948- 3F 3F 37 6D 49 09 F5 DB 
6950- DB 3B 2E 3E 2E 2D 2D 2D 
6958- AD 3F 3F 3F 3F 4E 49 29 



VERIFICATION 



T = : FOR I a 26184 TO 56567 : T 
= T + PEEK (I) ; NEXT : PRINT T 
RESULTAT : 27756 



VERIFICATION 



26 



T = Q : FOR I = 26568 TO 26975 : T 
= T -h PEEK (I) : NEXT : PRINT T 
RESULTAT : 34961 



GUY-HACHETTE 



WIIIIHI 



6968- 35 3F 2E 35 3F DF DB 37 
6968- 2D 2D 2D 2D F5 3F 3F 3F 
6978- B7 49 49 49 01 00 0© ZD 
6973- 2D 2D 2D 3E 3F 3F 3F 77 
6980- 09 2D 3E 37 2D 3E 37 2D 
6988- 3E 37 2D 3E 37 2D 3E 37 
6990- 2D 3E B7 49 49 01 0© 80 
6998™ 2D 4D 49 35 FF DB 3B 37 
69A0- 2D 4D 49 35 FF DB 3B 37 
69A3- 2D 4D 49 35 FF DB 3B 37 
69B8- 2D 4D 49 35 FF DB 3B 37 
69R8- 2D 4D 49 35 FF DB 3B 37 
69C8- 2D 4D 49 35 FF DB 3B 37 
69C8- 2D 2D 2D 2D F5 3F 3F 3F 
69D0- B7 49 49 49 01 00 49 2D 
69D3- 4D 49 35 FF DB 3B 37 2D 
69E6- 4D 49 35 FF DB 3B 37 2D 
69E8- 4D 49 35 FF DB 3B 37 2D 
69F0- 4D 49 35 FF DB 3B 37 2D 
69F3- 4D 49 35 3F DF 38 77 2D 
6A0 0- 0D 2D IE 3F 3F 0E 2D IE 
6A08- 56 49 09 08 00 2D 4D 49 
6A10- 09 35 FF DB DB 3F 2E 6D 
6A18- 49 49 35 FF DB DB 3F 2E 
6A20- 6D 09 6D 29 3E DF FF IB 
6A28- 3F 2E 6D 09 6D 29 3E DF 
6A30- FF IB 3F 2E 6D 69 6D 29 
6A38- 3E DF FF IB 3F 2E 6D 09 
6A40- 6D 29 3E 3F 3F 3F 3F 77 
6A43- 2D 60 29 2D 1 E FF DB B7 
6A50- 49 49 49 81 06 00 2D 4D 
6A58- 49 35 FF DB 3B 37 2D 4D 
6A60- 4? 35 FF DB 3B 37 2D 4D 
6A68- 49 F5 FF IB 3F 0E 2D 2D 
6A70- 35 3F 3F BF 2D 4D 29 15 
6A78- FF DB 3B 37 2D 4D 49 35 
6A80- FF DB 3B 37 2D 4D 49 35 
6A88- FF DB 3B B7 49 49 49 09 
6A90- 00 49 2D 4D 49 35 FF DB 
6A9S- 3B 37 2D 4D 49 35 FF DB 
6AA0- 3B 37 2D 4D 49 35 FF DB 
6AA8- 3B 37 2D 4D 49 F5 FF 1 B 
6AB0 - 3F 0E 2D 0D F5 3F 37 2D 
6AB8- 35 3F 37 20 35 3F B7 49 
6AC0- 49 69 80 00 29 2D 2D 2D 
6AC8- 15 3F 3F 3F 3F 37 6D 49 
6AD0- 29 F5 3F 17 2D IE 3F 17 
6AD8- 2D IE 3F 17 2D IE 3F 2E 
6AE0^ 6D 49 89 FF DB 3B 37 2D 
4AE8- 2D 2D 2D F5 3F 3F 3F 3F 
6AF8- 56 49 49 49 1 08 49 49 

Vj glHCATrON i T = Q : FOR I = 26976 TO 27383 : T 
= T H- PEEK (I) : NEXT : PRINT T 
RESULT AT : 34772 

TRIMPLIN MICRO 



6AF8- 


49 


3A 


1 F 


37 


6D 


F5 


DB 


13 


6B00- 


2D 


2D 


2D 


1 5 


3F 


3F 


3F 


3F 


6B03- 


2E 


6D 


49 


35 


FF 


DB 


3F 


2E 


6B10- 


2D 


2D 


2D 


35 


3F 


3F 


3F 


3F 


6B1 8- 


2E 


35 


3F 


2E 


2D 


2D 


2D 


35 


6B20- 


3F 


3F 


3F 


B7 


49 


49 


49 


00 


6B2S- 





2D 


92 


0A 


2D 


2D 


2D 


15 


6B30- 


3F 


3F 


3F 


3F 


2E 


6D 


49 


F5 


6 B 3 S — 


DB 


IB 


3F 


2E 


35 


3F 


2E 


6D 


6B40- 


49 


1 1 


FF 


DB 


3F 


2E 


2D 


2D 


6B43- 


2D 


F5 


3F 


3F 


3F 


4E 


29 


IE 


6B50- 


6F 


49 


69 





49 


49 


89 


BF 


6B58- 


2D 


F5 


DB 


1 3 


2D 


2D 


2D 


1 5 


6B66- 


3F 


3F 


3F 


3F 


2E 


6D 


49 


35 


6B68- 


FF 


DB 


3F 


2E 


2D 


2D 


2D 


35 


6B70- 


3F 


3F 


3F 


3F 


2E 


35 


3F 


2E 


6B78- 


2D 


2D 


2D 


35 


3F 


3F 


3F 


B7 


6880- 


49 


49 


49 


00 


30 


FF 


49 


89 


6B88^ 


BF 


2D 


F5 


DB 


13 


2D 


2D 


2D 


6B90- 


1 5 


3F 


3F 


3F 


3F 


2E 


4D 


49 


6B98- 


35 


FF 


DB 


13 


2D 


2D 


2D 


35 


6BA0- 


3F 


3F 


3F 


3F 


2E 


6D 


49 


35 


6BA8- 


FF 


DB 


3F 


2E 


2D 


2D 


2 D 


2D 


6BB0- 


3E 


3F 


3F 


3F 


87 


49 


49 


49 


6B B8 


61 


8 


35 


92 


92 


92 


92 


12 


6BC0- 


2D 


2D 


2D 


2D 


2D 


35 


3F 


3F 


6BC8- 


3F 


3F 


3F 


6F 


49 


49 


49 


9 


6BD0- 


00 


BF 


49 


39 


BF 


2D 


F5 


DB 


6BD8- 


13 


2D 


2D 


2D 


1 5 


3F 


3F 


3F 


6BE0- 


3F 


2E 


6D 


49 


35 


FF 


DB 


3F 


6BE8- 


2E 


6D 


49 


35 


FF 


DB 


3F 


2E 


6BF0- 


6D 


49 


35 


FF 


DB 


3F 


2E 


2D 


6BF8^ 


2D 


2D 


F5 


3F 


3F 


3F 


56 


49 


6C00- 


49 


9 


00 


2D 


92 


0A 


2D 


2D 


6C08- 


2D 


15 


3F 


3F 


3F 


3F 


2E 


4D 


6C1 0- 


49 


35 


FF 


DB 


1 3 


2D 


2D 


2D 


6C1 8- 


35 


3F 


3F 


3F 


3F 


2E 


6D 


49 


6C20- 


35 


FF 


DB 


3F 


2E 


2D 


2D 


2D 


6C28- 


2D 


3E 


3F 


3F 


3F 


B7 


49 


49 


6C30- 


49 


1 





35 


2D 


3E 


37 


2 D 


6C33- 


3E 


37 


2D 


2D 


2D 


2D 


1 5 


3F 


6C40- 


3F 


3F 


3F 


37 


2D 


4D 


49 


35 


6C48- 


FF 


DB 


3B 


37 


2D 


4D 


49 


35 


6C50- 


FF 


DB 


3B 


37 


2D 


4D 


49 


35 


6C58* 


FF 


DB 


3B 


37 


2D 


2D 


2D 


2D 


6C6D- 


F5 


3 F 


3F 


3F 


B7 


49 


49 


49 


6C68- 


1 


00 


8A 


92 


0A 


2D 


2D 


2D 


6C79- 


15 


3F 


3F 


3F 


3F 


2E 


6D 


49 


6C73- 


F5 


DB 


1. B 


3F 


2E 


35 


3F 


2E 


6C80- 


6D 


49 


1 1 


FF 


DB 


3F 


2E 


2D 


6C33- 


2D 


2D 


F5 


3F 


3F 


3F 


56 


49 



VERIFICATION i J — : FOR I = 27384 TO 27791 : T 
= T + PEEK (I) : NEXT : PRINT T 
RESULT AT : 32371 

27 



'■■HI, 



f FONTE SPECIALE 



6C98- 


49 


09 


80 





4 9 


49 


29 


3E 


6C98- 


2E 


3E 


DF 


DB 


2A 


2D 


2D 


2D 


6CA0- 


3E 


3F 


3F 


3F 


37 


2D 


4D 


09 


6 C A 9 - 


35 


FF 


DB 


3F 


2E 


6D 


49 


35 


6CB0 - 


FF 


DB 


3F 


2E 


60 


49 


35 


FF 


6CB3- 


DB 


3F 


2E 


2D 


2D 


2D 


F5 


3F 


6 CCS - 


3F 


3F 


56 


49 


49 


09 





09 


6CC8- 


92 


0A 


2D 


2D 


2D 


1 5 


3 F 


3F 


6CD0- 


3F 


3F 


2E 


6D 


49 


35 


FF 


DB 


6CD8- 


3F 


2E 


2D 


2D 


2D 


35 


3F 


3F 


6CE0- 


3F 


3F 


2E 


35 


3F 


2E 


2D 


2D 


5CE8- 


2D 


35 


3F 


3F 


3F 


B7 


49 


49 


6CF0- 


49 





00 





49 


2D 


2D 


3E 


6CF8- 


3F 


3F 


2E 


35 


3F 


2E 


6D 


3A 


6D0S- 


3F 


3F 


37 


2D 


2D 


2D 


DE 


3F 


6D08- 


2E 


3 5 


3F 


2E 


35 


3F 


2E 


35 



6DI0- 3F 56 49 49 00 ©0 92 92 
6D18- 6A 2D 20 20 1 5 3F 3F 3F 
6D20- 3F 2E 6D 49 35 FF DB 3F 
6D28- 2E 6D 49 35 FF DB 3F 2E 
6D38- 2D 2D 2D 35 3F 3F 3F 77 
6D38- 49 09 35 FF DB 9B 2D 2D 
6D40- 2D 2D IE 3F 3F 3F 6F 49 
6D48- 49 09 00 00 2D 3E 37 2D 
6D50- 3E 37 2D 2D 2D AD 3F 3F 
6D53- 3F 3F 2E 6D 49 35 FF DB 
6D60- 3F 2E 6D 49 35 FF DB 3F 
6069- 2E 6D 49 35 FF DB 3F 2E 
6D70- 6D 49 35 FF DB 3F 56 49 
6D78- 49 49 00 00 3E 2D 3E B7 
<SD80- 2A 35 3F 2E 35 3F 2E 35 
6DS3- 3F 2E 35 3F 2E 35 3F 56 
6D90- 49 08 00 00 29 35 3F 96 
609Q- 2D 3E 37 2D 3E 37 2D 3E 
6DA0- 37 2D 3E 77 35 FF 2A 2D 
6DA8- IE 3F 4D 09 00 35 2D 3E 
6DB0- 37 2D 3E 37 2D 4D 09 35 
6DB8- 3F DF 3B 37 2D 4D 2D IE 
6DC0- 3F 3F 3F 2E 2D 2D AD 3F 
60C8- DF 3F 2E 60 09 2D 3E DF 
6DD0- IB 3F 2E 6D 49 35 FF DB 
6DD8- 3F 56 49 49 49 0G 00 37 
6DE6- 2D 3E 37 2D 3E 37 2D 3E 
6PE8- 37 2D 3E 37 2D 3E 37 2D 
6DF0- 3E 37 2D 3E B7 49 01 00 
6DF8- 8 1 92 ©A 2D 6D 29 AD 3F 
6E00- 3F 3F 3F 3F 2E 6D 29 4D 
6E88- 35 FF 3B DF 3F 2E 6D 29 

VERIFICATION ; T = : FOR I = 27792 TO 28T75 * T 
= T + PEEK (J) : NEXT : PRINT T 
RlSULTAT : 28239 

iiiiiuiiinfitiiiiiM«iiii milllVflllliailtflBIII 

2B 



6E10- 4D 35 FF 3B DF 3F 2E 60 
6E18- 29 4D 35 FF 3B DF 3F 2E 
6E20- 60 29 4D 35 FF 3B DF 3F 
6E28- 56 49 49 49 89 00 49 92 
6E30- 0A 2D 2D 2D 1 5 3F 3F 3F 
6E38- 3F 2E 60 49 35 FF DB 3F 
6E40- 2E 6D 49 35 FF DB 3F 2E 
6E48- 6D 49 35 FF OB 3F 2E 6D 
6E50- 49 35 FF DB 3F 56 49 49 
6E5S- 49 00 00 00 92 G A 2D 2D 
6E60- 2D 15 3F 3F 3F 3F 2E 6D 
6E68- 49 35 FF DB 3F 2E 60 49 
6E70- 35 FF DB 3F 2E 6D 49 35 
6E78- FF DB 3F 2E 2D 20 2D F5 
6E80- 3F 3F 3F 56 49 49 09 00 
6E38- 00 92 8A 2D 2D 2D 15 3F 
6E90- 3F 3F 3F 2E 6D 49 35 FF 
6E98- OB 3F 2E 60 49 35 FF DB 
6EA0- 3F 2E 6D 49 35 3F 3F 3F 
6EA8- 3F 2E 2D 2D 2D DE DB 3F 
6EB0- 2E 35 3F 4D 49 49 01 00 
6EB8- 2D 92 ©A 2D 2D 2D 35 3F 
6EC0- 3F 3F 3F 2E 6D 49 35 FF 
6EC8- OB 3F 2E 60 49 35 FF DB 
6ED0- 3F 2E 6D 49 35 3F 3F 3F 
6ED8- 3F 0E 2D 2D 2D 35 37 35 
6EE0- 6F @1 00 00 92 0A 2D 2D 
6EE8- 35 3F 3F 3F 2E 35 3F 2E 
6EF0- 35 3F 2E 35 3F 2E 35 3F 
6EF8- 56 49 49 01 80 00 92 0A 
6F60- 2D 2D AD 3F 3F 3F 37 6D 
6F0S- 49 F5 DB IB 37 2D 2D 2D 
6F10- 15 3F 3F 3F 4E 09 2D 3E 
6F18- FF IB 37 2D 20 2D F5 3F 
6F20- 3F B7 49 49 09 60 3E 49 
6F28- 11 3F 2E 35 3F 9F 2D 2D 
6F30- 35 3F 3F 77 29 35 3F 2E 
6F38- 35 3F 2E AD 3F 37 2D 35 
6F40- 3F 56 49 00 09 4D 92 2A 
6F48- 6D 49 35 FF DB 3F 2E 6D 
6F5©~ 49 35 FF DB 3F 2E 6D 49 
6F58- 35 FF DB 3F 2E 6D 49 35 
6F60- FF DB 3F 2E 2D 2D 2D F5 
6F68- 3F 3F 3F 56 49 49 69 00 
6F70- 09 92 2A 6D 49 35 FF DB 
6F78^ 3F 2E 6D 49 35 FF DB 3F 
6FS0- 2E 6D 49 F5 FF 3B 77 2D 
6F8S- 2D IE 3F 2E 35 3F 56 49 
6F90- 49 00 08 B7 92 2A 6D 49 
6F98- 09 35 FF DB 1 B 3F 2E 6D 
6FA0- 29 4D 35 FF 3B DF 3F 2E 

VERIFICATION : T = - FOR I = 28176 TO 285B3 - T 
- T + PEEK (I) : NEXT : PRINT T 
RLSULTAT : 34168 
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VERIFICATION : T = : FOR I = 28584 TO 29073 : T = T + PEEK (I) : NEXT : PRINT T RESULT AT : 37781 

VERIF ICATION GE NERALE : T — : FOR I = 24576 TO 29073 ; T = T + PEEK (I) : NEXT : PRINT T 

RESULT AT s 354459 

Sauvegarder par un BSAVE FONTE. SPECIALS, A24576 r L4498 



TREhrtPLlN MICRO 



ERREURS (a corriger S.V.P.) 



N°2 



N°1 



Page 60 ; deuxieme colonne, deuxietne 
ligne, lire CATALOG, et non LIST. 



Page 57 ; BSAVE DIA.CARAC, 
A$6100f, L$3W (au lieu de 400) 



ND + 1 



Page 64 (ligne 20) . 0306 : 85 06 
(STA $06) 



Page 17 (8 P ligne avant la fin). Lire: 
* CALL 24793 (ici, adrcsse decimalc dc 
$60D9) 



Page 46 (ligne 270). Supprimer ND = 




2? 





Des amis 
qui vous 
veulent 
du bien 



parGUY-HACHETTE 



SI vous etes riche ou puissant — voire les deux a la fois — , ne cherchez surtqut 
pas a compter vos pretendus amis : ils sont forcement nombreux, et Jeur 

1 enthousiosme est tel qu lis pratiqueraient vofontiers, si vous Jeur en fournis- 

siez I'occasion, quelque vulgaire forme de baise-main. 

Par contre, si vous avez recemment connu quelque revers de fortune, c F est le 
moment ou jamais d'ouvrir un nouveou repertoire de vos vrois copains, ceux des 
bans et des mauvais jours. Comment ? Seulement quelques noms ? Vous dites 
qu'ils n'ont pas toujours ete tendres avec vous ? Peut-etre se sont-ils contentes de 
manifester une objectivite que votre aveuglement prit aJors pour de rhostilite... 

Si j'en juge par tout ce que je lis sur Apple depuis quelque temps, ma vieille Pomme 
doit connaitre des difficultes. tt car ses anciens "amis" semblent se rejouir des mal- 
heurs qui frappent le geant de I'informatique personnel!©. 

Pour ma part, je ne pratique pos le catasfrophisme, et je me vois mal dans la peau du " 
sodique qui appuie sur la tete d'un monsieur essoyont d'echapper a la noyade. 

J'ignore si Apple souffre (autant que les autres) de lo crise actuelte, mais le contraire 
m'etonnerait, Por centre, j'estime que le brillant passe de cette marque plafde en so 
faveur. On a montre, naguere, chez Apple, avec des hommes que Ton accuse 
aujourd'hui d'avoir ete* de mauvais gestionnaires, que les (bonnes) idees, associees 
au dynanisme de fa [eunesse, pouvaient creer un grand courant commercial. 

Bien sur, il y ovait (ils existent encore) les fans de I'Apple, prets a acheter n'importe 
quoi, pourvu quecela soit marque de la populaire pomme. 

II est non mains certain que I evolution rapide de la micro-inforrnatique et, surtout, le 
lancement de Mac, machine revolutionnaire, mais financierement interdite a toute 
une categorie d'utilisateurs, ont creuse un fosse que le manque de communication 
avait deja ebauche entre Apple et les hobbfsres. 

Je sais, par les Lectrices et Lecteurs de Tremplin Micro, qu'un club parisien (trop, 
peut-etre) ne saurait resoudre tous les problernes, surtout lorsqu'il devient visible- 
ment une affaire de gros sous ; on ne paye pas une cotisation pour avoir le droit de 
lire, chaque mois, que Mac est (e meilleur, etc. ou celui d'acheter un tee-shirt. 

II resfe que vous of moi possedons un [ou des) Apple et que nous on sommes dans 
rensemble tres satisfaits. 

Que I'on ne compte pas sur moi, en tout cas, pour applaudir certaines initiatives, 
mais pas davantage pour hurler avec les loups, 

Quand il y a un ver dans une pomme, e'est souvent parce qu'elle est deJicieuse ! 
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Nous repondons ici 
oux questions de 
lecteurs neophytes. 



* Pouvez-vous m'exptiquer clairemenf com- 
ment fonctionne une boucle de type 

FOR A = 1 TO 12 STEP 3 ? 

La meilleure explication vous sera fournie 
par voire Apple. Tapez done, en mode 
direct : 

FOR A = 1 TO 12 STEP 3 : PRINT A : NEXT 

et vous verrez s'affieher les valeurs 1, 4, 7 et 
10, 

e'est-a-dire 1+3 = 4 + 3 = 7 + 3 = 10,„ 
En I'absence de STEP, le compteur de lo bou- 
cle est augmente de 1 a cheque passage. 

Question a 2F50 : qu'est-ce qui se passerait 
avec STEP = ? Essayez ! 

* Pourquoi utifisez-vous toujours ie dollar 
apres un INPUT, pour des valeurs numeriques. 
Example : INPUT "NOAABRE" ; A$... puis A = 
VAL(A$) ? C'est complique et inutile. 

Si vous programmez ainsi votre INPUT : 

— 10 INPUT "DONNEE A 

et tapez un RETURN sans avoir d'abord 
enfonce une louche numerique, le message 

— ? REENTER 

va apparaitre,.. et demolir votre bel ecran. 
En utilisant une valour alphanumertque, 
vous restez maTtre (ou maTtresse) de la 
situation. 

Autre methode, avec ON ERR GOTO : 

5 ONERR GOTO 10 

10 HTAB1 : VTAB5;INPUTA 

* Je ne vols pas tres bien d quoi peut servir 
^instruction SPEED (que j'oi d'ailleurs remor- 
quee dans certains programmes de TrempVm 
Micro) ? 

SPEED (vitesse) definit la vitesse d'affichage 
des caracteres (ou d'enrnssion vers un autre 
terminal). Elle dolt etre comprise entre et 
255. SPEED permet de (abriquer des boucles 
d'aftente. Par exemple ; 



10 SPEED = 1 : PRINT 



" : SPEED = 255 




I CALLS 




Nous n'utilisons pas tous ces CALLS dans 


nos programmes, mais gageons que cer- 


tains d'entre eux vous rendront service ! 


CALL- 1 184 


$FB6Q 


Fffnrf* rprrnn Pt nHirho "APPI P II" 






$FBF4 


Avance lecurseur d'une position 




CALLW0& 


SFCW 


Recule le curseur d'une position 




CALL-998 


$FC1A 


Remonte le curseur d'une ligne 


CALL-958 


$FC42 


Efface depuis le curseur, jusqu'au 


bas de 1 'ecran 




CALL-922 . , 


$FC66 


Saut de ligne 




CALL-868 . , . . . 


SFC9C 


Efface la ligne a partir du curseur 


(celui-ci ne change pas de place) 




f A i t - I 9R 




F m t^.^.ir'in fi'iin Kin 




CAU-151 


$FF69 


Entree dans le moniteur avec 




apparition de 1'* 




HRAPHKMF fHi Qf^\ 

vJlXrti 1 1I3/VIL ^ni-rcxoj 




CALL-3109 


$F3E4 


Permet de visualiser la page 1 




(POKE-16302,0 annule les Mgnes 




de texte, en bas de 1 'ecran et 




TEXT — ou POKE- 16303,0 — per- 




met de retrouver I'ecran TEXT) 




CALL-3&82 


SF3F6 


Colorer la page graphique de 




cette maniere ; 




HGR2 ; HCOLOR = 5 : HPLOT 0,0 : 




CALL-3082 





TREMPUN MICRO 
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Votre bibliotheque 
INFORMATIQUE 

I Familiarisez-vous (aussi) avec le MSX 

Vous possedez un Apple, mais vous avez entendu parfer du 
M.S.X. (comme Microsoft Extended), Cette version du Basic 
deviendr a -t-e||e LA version de tous les producteurs de 
micros de la planets ? II est permis d'en douter, mais on 
peut raisonnablement penser que cette norme sera a I'ori- 
gme de multiples nouveautes, au cours des prochains mois 
Le livre de Robert Van Loo a le merite de commencer par 
J abc, et celui — a signaler — d'etre a la portee de tous les 
debutants, Eton* donne qu'il s'agit d'une edition de poche, 
relet ivement bon marche, [e crois qu'il est drgne de figurer 
dans voire bibliotheque Informatique. 

Je ne I'ai pas etudie en detail, mais je I'ai parcouru. II nest 
jamais ennuyeux et pas davantage exagerernent didacti- 
que. Cest une approche intelligente de la programmation 
avec des cnapitres utiles : glossaire du Basic MSX, proble- 
mes de tri, codes des caracteres, etc- 



par Guy-HACHETTE 




/ j eux / / 

ef C€i&be~€eie 

A 

PROGRAMMER 




Pour terminer, que I on me permette un 
de merne, en Basic, queiques solutions 



I Des idees.., et memo de bonnes idees 

Jacques Arsac a une mauvaise opinion des revues de 
micro-informatique, parce que des jeux ainsi pubJies 
sont d'une qualite mediocre... mal rediges, horrible- 
rnent ma( commentes, comme si I'auteur voulait ernpe- 
cher le lecteur de les comprendre,.,», N'en jetez plus 
cherMaitre J Grace a vous, tout ceJa va changer ! 
N'empeche qu'il a raison : «celui qui programme ses 
|eux s amuse deux fois»... comme je I'ai ecrit dans 
Tremphn Micro n°l, mais avec moins de talent bien 
entendu. 

Pour le reste, je ne suis pas d'accord avec son juqe- 
menf, ne serait-ce qu'en raison de I'absence de la 
defense. A quo! serviraient les ouvrages de vulgarisa- 
tion, comme celui de Jacques Arsac, si les penodiques 
se revelaient capables de les remplacer ? 
Son livre — qui se veut structure — n'est pas aussi 
clair qui! le pense, mais il est possible que ma 
modeste cervelle de journalist soit seule en cause 
dans cette affaire. 

Par contre (dans Trernpiin Micro, on donne la parofe a 
la defense), il est bourre de raisonnements interes- 
sants. Cest une invitation a la programmation, mais 6 
etudier plutot qu'a lire. 

e constafation (en micro-minuscules) : il y manque taut 
genrales — et medftes — aux jeux qui y sont evoques. 
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ROUTINE 



DOS ProDOS 



I Est-ce une anagramme ? 

OUS serez probablement amene, dans un programme de jeu... ou d'enseigne- 
ment, 6 trailer le probleme des anagrammes, Est-ce une anagramme,., ou 
non ? Divers precedes permetfent de repondre 6 cette question. Le programme 
DEMO de Clement Renard vous fournit deux solutions : la premiere en Basic pur, la 
seconde avec un complement en langage machine. 



Premiere parti* en Basic : 

Les valeurs ASCII des N 
lettres du mot de base 
sont poquees a partir de 
I'adresse 3192 (chojsie 
arbitrairement) ou $2000, 
A ce stodft, on control e 
qu'il s'agit bien des lettres 
capitales (I'espace est 
accepte), 

Ensuite, chaque fois 
qu'une leffre de la 
pseudo-anagramme cor- 
respond d Tune des 
valeurs poquees, on trans- 
forme cette derniere en un 
beau zero. 
Devinez la suite ! 



Deuxieme partte an lan- 
gage machine : 

Si on lit a I'adresse $06, 
e'est que le mot n'existe 
pas. 

Si on lit 1 d i'adresse $07, 
e'est une anagramme 

(0 = non). 



18 TEXT : NORMAL : PRINT CHR* <12>; CHR$ <21> : GO 
SUB 308 

29 HOME : INVERSE : HTAB 6: PRINT " VERIFICATION D 

'UNE ANAGRAMME * : NORMAL 
38 T* = " " : FOR I = 1 TO 18 
: VTAB 2: PRINT T* 

VTAB 6: CALL - 958; CALL - 



T* = T$ + 



NEXT 



40 
59 

60 



i 98 



= h " THEN 188 
ASC < MID* <M 
< > 32 THEN 4 



INPUT "MOT/LETTRES -> ";M$: IF MS 
L = LEN (M*>: FOR 1 = 1 TO L:A - 
$,1,1)): IF <A < 65 OR A > 90) AND A 
8 

POKE I + 8191 ,Ai NEXT 
VTAB Si CALL - 958: CALL - 198 
INPUT "ANAGRAMME ~> ";AS: IF A$ = BW THEN 49 
IF LEN (A*) < > L THEN 80 

1 TO L:A = ASC C MID* (A*,I,1>) 
8192 TO 8191 + L: IF A = PEEK (J) THE 
GOTO 140 



79 
80 
90 
100 
110 
120 

N 
130 
140 
150 

TO 
160 
170 

IN 
180 
190 
208 
210 
220 

N 



FOR I = 
FOR J = 

POKE J ,8 
NEXT Js 
NEXT 1 : 
PRINT : 

170 
PRINT : 
VTAB 22 

" i ! GET 
PRINT 



GOTO 150 
GOTO 168 
PRINT "CE 



N'EST PAS UNE ANAGRAMME" i GO 



PRINT "C'EST UNE ANAGRAMME 11 
s HTAB 1: PRINT "<1> BASIC <2> LM <3> F 
R* 
IF R$ = 



1 M THEN 
IF R* = "2 H THEN 220 
IF R* < > rp 3" THEN 170 
TEXT : HOME : END 
HOME : INVERSE : PRINT rt 
LANGAGE MACHINE " : NORMAL 



20 



ET AVEC UNE ROUTINE E 



230 
240 
250 

-> 
268 
270 

-> 
280 
290 



VTAB 2: PRINT T* 

PRINT s VTAB 8: CALL - 198s CALL - 958 
INVERSE : PRINT "MOT-BASE" ; i NORMAL : PRINT 

CALL 768 i IF PEEK <6) = THEN 170 
PRINT : VTAB 10: CALL - 198: CALL - 958 



INVERSE 
• ; ! CALL 
IF PEEK 
GOTO 150 



PRINT "ANAGRAMME" \ \ NORMAL : PRINT " 
787 

(7) - 1 THEN 168 

(SUITE PAGE 34) 



TREMPUM MICRO 
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Est-ce une anagramme ? 



(suite) 



388 RESTORE : FOR I = 768 TO 828: READ A: POKE I .A 
: NEXT : RETURN 

318 DATA 32,44,213,142,235,232,189,8,2,248,5,157,9 

,32,288,245,134,6,94,32,44,213,168,255,280,162,255, 

232,185,8,2,221,8,32,288,7,169,0,157,0,32,248,9,228 

,6,208,236,169,0,133,7,96,196,6,208,224,169,1,133,7 
,96 



La li gne 310 correspond 
exactement au pro- 
gramme explique ci- 
apres. 

Lorsqu'une routine en lan- 
gage machine est courte 
(ce qui est le cas) la mettre 
en DATA evite de la char- 
ger a partir de la dis- 
quette... et permet de la 
reinstaller facilement. 



0334- 
0336- 
0338- 
033A- 
033C- 



AIMAGRAMME.LM 



0300- 


20 


2C 


D5 


JSR 


$D52C 


0303- 


A2 


FF 




LDX 


£$FF 


0305- 


E8 






I NX 




0306- 


BD 


00 


02 


LDA 


$0200 ,X 


0309- 


F0 


05 




BEQ 


$031©' 


030B- 


90 


00 


20 


STA 


$2000 ,X 


030E- 


D0 


F5 




BNE 


$0305 


0310- 


86 


06 




STX 


$06 


0312- 


60 






RTS 



C4 
D0 
A? 
85 
60 



06 
E0 

01 
07 



Entree INLIN (voir f iche numero 4) 

A la ligne suivante, on aura done $FF + 1 = $00 

X = X + 1 (registre) 

On lit la valeur ecrite a I'adresse $200 + X 

Si le resultat est 0, saut a $310 

Sinon ecriture d I'adresse $2000 + X 

Si la derniere comparaison n'a pas donne I'egalite... 

La longueur de la ligne est dans X... ecriture en $06 

Retour au Basic. 



0313- 


20 


2C 


D5 


JSR 


*D52C 




0316- 


A0 


FF 




LDY 


£*FF 




0318- 


C8 






I NY 






0319- 


A2 


FF 




LDX 


£*FF 




031 B- 


E8 






I NX 






031C- 


B9 


00 


02 


LDA 


$0200 




031F- 


DD 


00 


20 


CMP 


$2000 




0322- 


D0 


07 




BNE 


*0 32B 


0324- 


A9 


00 




LDA 


£$00 




0326- 


9D 


00 


20 


STA 


$2000 




0329- 


F0 


09 




BEQ 


$0334 




032B- 


E4 


06 




CPX 


$06 




032D- 


D0 


EC 




BNE 


$031B 




032F- 


A9 


00 




LDA 


£$00 




0331- 


85 


07 




STA 


$07 




0333- 


60 






RTS 






Entree de I'anagramme 
Initialisation de Y 



| Meme combat avec le registre X 

Lecture d'un caractere... 
... et comparaison avec la liste de base 
S'il n 'y a pas egalite, saut en $32B 
Sinon A est mis 6 00... 

... pour etre transfere dans la case-memoire ainsi annulee 

Saut en $334 

A-t-on eu tous les caracteres ? (nombre en $6) 
Si la reponse est non, encore un tour I 
Sinon on a termine... mais I'anagramme... 
... n'en est pas une 
Retour au Basic 



CPY 


$06 


Fini ou non ? 


BNE 


$0318 


Non ! alors, ca report ! 


LDA 


£$01 


Oui I parfait... et le 1, ecrit a I'ad 


STA 


$07 


gner le Basic... 


RTS 




... enfin retrouve 1 



resse $07 va rensei- 



formation wj dne !* Serialise pas les variables. Pour le faire, une petite trans- 

formation s imposerait (des solutions existent dans d'autres programmes de la revue). 

de^ouTneTtTcot^^l^'-'T s °™™™™ en langage-machine, mais dans le cas 
ae routines tres courtes, le gain (en octets et en temps) se revele negligeable. 




GUY-HACHETTE 



LAN GAGE MACHINE 



Echange (swap) 
de variables 



Une petite routine qui peut tres sensiblement accelerer vos programmes de trh Personne ne vous oblige g recopier 
fidelement la DEMO ci-dessous. Vous pouvez I'elaguer. Une simple lecture vous montrera comment... 



180 TEXT : NORMAL ; PRINT CHR$ a 2) 

i CHR$ <21>J HOME 
110 GOSUB 340: POKE 1814,9: POKE 101 

5,3 

120 A$<1) = "BERNADETTE" :A$<2) = "NAD 
EGE" :A$<3) = ff 6UY" 

139 PRINT "PROGRAMME EN LANGAGE MACH 

INE 

. print - PRINT : LIST 

140,170: GOSUB 330 

140 CALL - 198 
159 & ,A$<1) ,A$<2) 
149 & ,A$C3>,A$<2) 

176 X = X + 1 : IF X < 10^3 THEN 150 
180 PRINT : PRINT " ENUI RON 20 SECOND 

ES U : GOSUB 330 
190 X = 

200 HOME ! PRINT : PRINT "PROGRAMME 
EN BASIC 

*. print : PRINT 

210 LIST 220,240: GOSUB 330: CALL - 
198 

220 T$ = A*<i)!A*<D = A$(3):A$<3> ~ 
T$ 

230 T$ = A$<3):A$<3> = A$(2):A$<2> = 
T$ 



240 
250 

260 

279 
280 



2?@ 



31B 
320 
338 



349 



350 



X = X + 
PRINT 
UB 330 
PRINT 
(8) ... 



1 : IF X 
"ENVIRON 



< 1000 THEN 220 
36 SECONDES" ? GOS 



&,C$,A$ 



PRINT "<1> MENU 
REFAIRE <3> FIN" 



PRINT 15 SYNTAX E 
par exemple" 
GOSUB 330 
PRINT : UTAB 22: 
DISQUETTE <2> A 
: GOSUB 330 
R = PEEK < - 16384) - 48: IF R = 
1 THEN "JTAB 21: PRINT : PRINT 
CHR$ (4)" RUN MENU" 
PRINT ; HOME : IF R = 2 THEN X = 

0: GOTO 130 
IF R < > 3 THEN 280 
END 

CALL - l?8i POKE - 16368,0 
IT - 16384,128,127: POKE - 
8,3: RETURN 



WA 
1636 



FOR I = 768 TO 799: READ J: POKE 

I, J: NEXT j RETURN 
DATA 32 , 1 90 , 2 22 , 32 , 227 , 22 3 , 1 33 , 1 
33,132,134,32,190,222,32,227,223, 
160 ,2,177,133,72,177,131 ,145,133, 
104,145,131 ,136,16,243,96 



LA LIGNE 350 



0300- 


20 


BE 


DE 


JSR 


$DEBE 




Teste la vtrgule 




0303- 


20 


E3 


DF 


JSR 


$DFE3 




Recherche la variable 




9306- 


85 


85 




ST A 


$85 




"1 Stockage dans FORPNT des valeurs do Y 


et A 


0308- 


84 


86 




STY 


$86 




1 (adresse de la variable) 




030A- 


20 


BE 


DE 


JSR 


$DEBE 




Reteste la virgule 




030D- 


20 


E3 


DF 


JSR 


$DFE3 




Recherche de la secande variable 




0318- 


A0 


02 




L.DY 


£$92 




Y est mis a 2 




0312- 


81 


85 




LDA 


($85) 


.Y 


] Adresse lue dans FORPNT + Y et empilee 




0314- 


48 






PHA 










0315- 


Bl 


83 




LOA 


<$83) 


Y 


1 Adresse lue dans VARFNT 1 Y el passee 


dans 


0317- 


91 


85 




STA 


($85) 




I FORPNT + Y 




0319- 
031A- 


68 
91 


83 




PLA 

STA 


<$83) 




J Recuperation sur la pile, et echange 




031C- 


88 






DEY 






Mains 1 pour Y 




031D- 


10 


F3 




BPL 


$0312 




Si pas terming on fait un autre tour 




031F- 


60 






RTS 






Retour au Basic 
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ProDOS et VOUS 



NESTOR 



I vous ne disposez pas encore du systeme d'exploitation ProDOS, hatez-vous de repa- 
rer cette lacune et offrez-vous sans tarder la version 1 ,0,1, Elle presente I'avantage 
(non negligeable) d'etre debarrassee de certains defauts de jeunesse. Nous continuerons, 
dans Tremplin Micro, a vous devofler les faces cachees de ProDOS, encore peu connu des 
bidouilleurs et autres chasseurs d'octets (mais ils mettent les bouchees doubles ! ). 



PREFIX Le mot de P asse P our seeder 
a une disquette ProDOS au 
debut, c'est un peu agacant, mais on s'y habi- 
tue tres bien. 

Conse-H : Choisisse* des prefixes 
courts, du genre /TWH, par 
example. 

Question : Faut-il passer par un utilitaire 
pour changer )e PREFIX d'une 
disquette ? 

La reponse est non. Si le prefixe actuel est 
TOTO P et que vous desirez en faire LILI r il suf- 
fit de taper, dans I'ordre : 

RENAME/TQTQ,/LILI (pour changer), purs 
PREFIX/UL1 (pour acceder a la disquette). 
Clair ? Essayez toujours ! 



CREE R DES SOUS-VOLUMES 

Imaginons que, un peu par vice, vous res- 
sentiez f'imperatif besoin de sauver, dans 
un sous-sous-sous volume intitule A2, le 
programme TEST que vous a inspire voire 
bon genie. 

Vous avez devant vous le catalogue de la 
disquette /TAA4 (c'est son PREFIX). Comme 
vous etes une personne compfiquee, vous 
allez successivement creer les sous- 
catalogues /ABASE, /Al .„et /A2 (lequel 
accueillera votre programme TEST). Bien 
sur r tous ces noms sont arbitrages. Voici la 
marche a suivre : 

• CREATE/TM4/ ABASE 

• CREATE/TM4/ABASE/A1 

• CREATE/TM4/ABASE/A1/A2 

• SAVE/TM4/ABASE/A1 /A2/TEST 
Pour finir, vous tapez : 

• PREFIX/TM4/ABASE/A1/A2 

• CAT 



et le sous-sous-sous catalogue s'affiche 
sous vos yeux P avec son programme TEST 
dument enregistre. 

Parfait ! mais comme tout cela ne serf a 
rien, il s'agit maintenant d'en debarrasser 
votre accueillante disquette. Vous pensez 
benoTtement qu'un DELETE/TM4/ABASE va 
regler cette epineuse question. Erreur. 
L 'Apple vous repond : FILE LOCKED. 
Clair et net, bien qu'en anglais. 
II faut absolument defaire, a I'envers, ce qui 
a patiemment — et avec quelle maTtrise ! ■ — 
ete edifie dans le bon sens, comme ceci : 

• DELETETEST 

• DELETE/TM4/ABASE/A1/A2 

• DEL ETE/TAA4/AB ASE/ Al 

• DELETE/TM4/ABASE 

Avouez que c'est plutot securisant. Pas 
question d'effacer, par megarde, comme 
mon arriere-arriere petit-fils, I'ceuvre im- 
peVtssable de mon grand-pere ! 
Arnusez-vous bien avec ProDOS, et, sur- 
tout, soyez au rnoins aussi serieux que 
votre conseiller habitue), le sage 

NESTOR 



ADRESSE ET LONGUEUR 
D'UN PROGRAMME 

Apres avoir appele un programme par BLOAD, 
vous pouvez connaTtre son adresse et sa lon- 
gueur en tapant les lignes ci-apres (en mode 
direct, il est plus simple de faire CATALOG,., 
celui-ci fournissant I'adresse et la longueur des 
fichiers bfnaires.„ mais en HEXA) : 
A - PEEK(48825} + PEEK{48826) * 256 : L = 
PEEK(48840) + PEEK(48841) * 256 i PRINT 
"A = " A",L = "L 



REPONSE : A = 768, L = 45, (par exemple) 



ASSEMBLEUR 



INITIATION 



AVEC MADELEINE HOD! L'AUTEUR DEGRIBOUILLE 



I PETITS TRUCS D'ASSEMBLEUR : 

8 la numeration hexadecimale 




ANS un programme en assembleur, les 
nombres sont precedes du signe $. 



Cela signifie qu'ils sont exprimes en numera- 
tion hexadecimale. II est impossible de faire 
autrement. En eifet, sur un demi-octet, on 
peut inscrire les valeurs 6 15 (verifiez cette 
assertion en comptant en binaire sur 4 bits). 
Cela correspond a 16 valeurs differentes, 
zero etont une valeur. La numeration hexa- 
decimale permet done d'exprimer (1) : 

• par un seul caractere, (0 a $F), la valeur 
d'un demi-octet, 

* par 2 caracteres la valeur d'un octet. Tou- 
tes les valeurs qu'un octet peut prendre 
vont de a $FF. 

En comptant ainst, le programrneur en arrive 
tres vite a se representer les deux demi- 
octets accoles, et a "voir" la valeur de cha- 
que bit (2), En numeration decimale, ce 
serait impossible. C'est pour cela que Ton 
compte toujours en hexadecimal. 

Prenons un exemple. Supposons, que dans 
un jeu, Ton donne alternativement la main 
aux blancs, puis aux noirs, chacun ayant 4 
coups a jouer. Il est possible de regler cette 
boucle de la maniere suivante : 

COMPTEUR DS 1 ; Je bloque un octet, que 
j'appelle COMPTEUR. 

LDA £$AA 

STA COMPTEUR : je lui donne la valeur $AA 

Le diese (ou )a livre, avec le clavier AZERTY) 
qui precede $AA signifie que je donne la 
valeur $AA et non fa valeur contenue dans 
I'octet d'adresse $AA, auquel cas j'aurais 
ecrit "LDA $AA'\ sans fe diese (ou la Hvre). 
Comme $A s'ecrit 1010 (en numeration 
binaire), I'octet COMPTEUR contient 4 bits a 1 
qui alternant avec 4 bits a zero ; 10101010. 

BOUCLE LSR COMPTEUR 

BEQ TERMINUS 
BCS BLANC 
JSR JEUNOIR 
JMP BOUCLE 



BLANC JSR JEUBLANC 

JMP BOUCLE 
TERMINUS,,, suite du programme. 

JEUNOIR = sous-programme qui fait jouer 

les noirs. 

JEUBLANC = sous-programme qui fait jouer 
les blancs. 

Chaque sous-programme se termine par RTS 
( = RETURN). RTS renvoie a ^instruction qui 
suit le JSR, 

instruction "LSR COMPTEUR" fait glisser le 
contenu de I'octet COMPTEUR d'un bit vers la 
droite. Partant de la valeur $AA, le bit qui 
sort est alternativement un et un 1. II 
tombe dans la retenue ou CARY. L'octet se 
vide petit a petit. Au bout de 8 tours, il est a 
zero. 

[.'instruction "BEQ TERMINUS" signifie si /a 
valeur la plus recemment caicuiee, prise ou 
don nee, est zero (3), se bra nc her a TERMI- 
NUS, sinon continuer en sequence. Comme 
COMPTEUR passe d zero apres 8 tours, cette 
instruction limite la boucle a 8 iterations. 

L'instruction "BCS BLANC" signifie si lo rete- 
nue est a } f se broncher a BLANC, sinon con- 
tinuer en sequence. On a vu que lo retenue 
est alternativement a zero et a un. Cette ins- 
truction donne done alternativement la main 
aux blancs et aux noirs. 

Cet exemple montre comment la numeration 

hexadecimale permet d'utiliser fes bits d'un 

ou de plusieurs octets comme les engrena- 

ges d'un rouage. Les instructions AND 

ORA et EOR donnent un outilfage de meme 

nature. Ell es seront illustrees par quelques 

exemples dans un procharn numero de 

Tremplin Micro. , . , lJA _± 

Madeleine HODE, 



(!) Lire 6 ce sujel la page 44 de Trernpiin Micro n°i. 

(2) Un octet = 8 bits, bien sfir. 

(3) Raccourci hordi. II faul voir ens par cas dans la loble 
des instructions si el les peuvent ou non modifier le 
bit z du registre d'etat. 
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ASSEMBLEUR 



INITIATION | 



Afficher un texte, 
empiler... depiler 




A] FFICHER un texte 6 pariir d'une routine 
_ en assembleur est tres simple. II soffit 

en effet de placer I'adresse du premier caractere de la chaTne dans les registres A et Y fa 

L™X?^/i^7f le ,T ntre n ° tre exem P le - P°9 e suivante), puis d'appeler le sous-programme 
STROUT ($DB3A), Et la longueur ? inutile de I'indiquer : STROUT, aussi intelligent que les auteurs de 
ses jours, s arretera gentiment quand il rencontrera des guillemets... ou un octet mis a zero Ca vous 
explique un peu pourquoi on ne peut pas — facilement — afficher les guillemets " 



SOUS-PROGRAMMES 
(DE L'APPLE) 
UTILISES 

Pour se brancher sur un sous- 
programme, on utilise la fonc- 
tion JSR (code : 20 )... qui cor- 
respond au GOSUB du Basic. 



• $FC58 

• $FE80 
• $DB3A 

• $FE84 

• $F94A 

• $FC22 

• $FD6F 

• $FDED 



; Home 

: SETJNV.-Mode inverse 

: STROUT.— Affiche une chafne dont I'adresse est dans A et Y 
et se terminant par des guillemets ou par un 

: SETNORM.— Retablit le mode normal 

: PRBL2.— Sort X blancs (nombre dons registre X) 

: VTAB.— Va a la ligne specifiee dans CV (position verticale 
du curseur) 

: Une entree de GETLN sans af fichage de prompt 

: COUT.- Affiche le caractere dont le code ASCII est dans A. 



TAPEZ D'ABORD VOTRE PROGRAMME 



Q = return 
PARTI E 



PROGRAMME 



PARTI E 
TEXTE 



contr6le 



§ CALL- 151 Q 

*300l20 53 FC 20 B0 FE A? 3B AR 03 ?0 3A 

DB 20 84 FE A2 22 2d 4A F9 A? 06 3fT 2 =v 
2<3 22 FC 20 6F FP A2 00 9A 4R BD ft0 02 4 
B E8 C9 8D D0 F7 96 06 A2 00 68 68 2© ED 
FD E8 E4 06 D0 F7 60 Q 

*33B;D2 C5 CE D4 D2 C5 DA A0 D6 CF D4 D2 

C5 AO D0 C8 D2 CI D3 C5 AS AS CD CF CP 
CE D3 A0 C4 C5 AS B2 B5 B6 A0 C3 CI D? C 
1 C3 D4 C5 D2 C5 D3 A9 ©0 Q 

* CTRL-C D 

j^^ F0RI = 768 TO 873 :T=T+PEEK( I ) rNEXT:PR 
' VOUS DEVEZ OBTENIR CE RESULTAT 



SAUVE2 VOTRE PROGRAMME PAR BSAVE DEPILERXM, A$300, L$6A 
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GUY-HACHETTE 



IIIIIIMIIII 



QU'EST-CE QUE LA PILE ? 



Un espace memoire loge en page $01, de 
I'adresse $100 6 $1FF. Si vous pratiquez (un 
^^^^mmmm^mmmm^^^^^^^^m^^^^^^^^^m peu) I'anglais, sachez aussi que la pile obeit a la 

regie UFO : tradulsez par LAST tN-FIRST OUT t 
c'est-a dire, en ban francos, DERNIER ENTRE-PREMIER SQRTL 

(.'instruction PHA (48) pousse le contenu de A (Accumulateur) dans la pile. Le pointeur de pile 
est alors decrements de 1 . 

A 1'inverse, a la suite d'une instruction PLA (68), le pointeur de pile est increments de 1 , et le 
contenu de la case memoire ainsi pointee, passe dans A. 

Le plus interessant, c'est que t'on reeupere les donnees de la pile dans I'ordre inverse de leur 
stockage... ce qui va nous permettre ( id, d'alficher instantanement le contenu du buffer 6 
I'envers. Normafement, une instruction JSR ne modifie pas le contenu de (a pile, sauf depasse- 
ment. Il ne taut jamais oublier, en effet, que la pile ne dispose que de 256 octets. 

















0300- 


20 


58 


FC 


JSR 


=t> F~~ L- -_j L' 




0363- 


20 


30 


FE 


JSR 


£FE80 




©306- 


A? 


3B 




LDA 


£$3B 


Affichage du texts (memorise de $33B a 


0368- 


A0 


3 




LDY 


£$03 


$369), retour au mode normal, el fin de 


030A- 


20 


3A 


DB 


JSR 


*DB3A 


ligne ovec 34 espaces 


030D- 


20 


84 


FE 


JSR 


*FE84 


(LDX = $22, soit34)> 


0310- 


A2 


22 




LDX 


££22 




0312- 


20 


4A 


F9 


JSR 


-$F?4A - 




031 5- 


A? 


6 




LDA 


£*0 6 




0317" 


35 


2 5 




STA 




Curseur positionne au debul de la sixieme 


031 9- 


20 


22 


FC 


JSR 


*FC22 


ligne d'ecran. 


G31 C- 


20 


6F 


FD 


JSR 


*FD6F - 




031 F- 


A2 







LDX 


£$0 


Initialisation de boucle de lecture 


0321- 


SA 






TXA 




Conlenu de X (0) mis dans A 


0322- 


43 






PHA 




A est empile (au retour, ce sera le final) 


8323- 


BD 





02 


LDA 


$0200 ,X 


Lecture $200 + X 


0326- 


43 






PHA 




Contenu empile 


8327- 


E3 






INK 




X est increment© de 1 


©323- 


C? 


8D 




CMP 


£*8D 


Le dernier caractere est-il RETURN ? 


032A- 


D9 


F7 




BNE 


$0323 


Si non r encore un tour 


032C- 


36 


6 




5TX 


$0 6 


X est sauvegarde dans $6 (longueur) 


832E- 


A2 







LDX 


£$0 


puis remis a z^ro 


0330- 


63 






PLA 




£a f c'est le dernier rentre„> RETURN... 


0331 - 


68 






PLA 




et void I'avant-dernier ! 


0332- 


20 


ED 


FD 


JSR 


$FD"ED 


Affichage 


0335- 


E8 






I NX 




Incrementation 


0336- 


E4 


06 




CPX 


$06 


Comparaison avec 06 (longueur) 


0338- 


D0 


F7 




BNE 


$0331 


Encore un tour 


©33A- 


60 






RTS 




Vers le Basic, 



Le pire, c'est que, dans Je cas present, ('utilisa- 
tion de la pile est inutile.,, ce n'etait qu J un pre- 
text©. Er> effet, quand on rencon+re le caractere 
RETURN, dans le buffer d'entree, la longueur du 
texte soisi se trouve dans le reglstre X... et 31 
suff it, sans aucunement faire oppel a la pile, de 
relire le texte a I'envers, en I'affichant au fur et 
6 mesure, comme ci contre : 



31 F : A2 Q0 
321 : BD QQ 92 

324 : E8 

325 :C9 8D 
327 : DO F8 

329 :CA 

32A : BD 00 02 
32D : 20 ED FD 

330 : DO F7 
332 :6Q 



LDX £$0<J 
LDA $0200, X 
INX 

CMP £$8D 
BNE $0321 
DEX 

LDA $0200, X 
JSR $FDED 
BNE $0329 
RTS 



Lecture : quand A confient $8D 
(RETURN), termine ! 



X = X- 1 (elimination de RETURN) 

Lecture 

Affichage 

Si different de (J GOTO 329 
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I LA PILE 

(suite et fin) 



Ce programme de demonstration vous montre comment transmettre 
une variable a une routine en assembleur. . . et comment ti rer parti de la 
pile. D'autres formules existent. A vous de donner libre cours a votre 
imagination ] Notez que la ligne 120 n'a rien a vofr avec la pile E/le se 
contente d afficher les 21 instructions de DEPILER2.LM, votre routine en Jangage machine. 

TEXT : HOME : FOR I = 768 TO 898 :T = T + PEEK <I)s NEXT « IF T < > * 
4B1 THEN PRINT CHR* (4VBL0AD DEPILER2.LM" > 5 

A HGFEDCBA" 2yxwyu tsr^ponml k j i hgf edcba0987654321 2YXWUUTSRQP0NMLKJI 

PRINT A*; PRINT 
CALL 768 ,A* 

GOSUB IBB; CALL - 198: GOTO 40 

B$ = "ZYXWUTSRQPONMLKJrHGFEDCBA A 1 'env^s, puis k l'endroit 
9937654321" 
70 R = 0: HOME : PRINT B*: PRINT : GOTO 90 



10 

20 

39 
40 
50 

60 



Vous pourriez aussi ecrire CALL 768, A$(9) 
variable indicee, per exemple. 



80 
90 

106 

lie 
1 2d 



GOTO 80 
< 8 THEN RETURN 
X < 2 THEN 60 
POKE 810,0: POKE 811.133: 



POKE 813,169: POK 



CALL 768 , Bi 

GOSUB 100: CALL - 198 
GET R$:R = R + i ; if R 
X = X + t I IF 
POKE 899,169: PUKE 810,9: POKE 811 ,133: POKE 832 58 

E 814,3: POKE 815,133: POKE 836,59: POKE 817,169: POKE POKE 819 

• 3 f^f 828,9 ?! POKE 821,254: POKE 822,96:'h0ME ■ CALL 809 
N M^RO*^ NORMAL " EXPLICA ™S DANS -p INVERSE : PRINT "TREMPLI 

CALL - 198: POKE - 16368,0: WAIT - 16384,128: POKE - 16368 6 
™ 2 ^ T P oI NT D : VTAB 24: PRINT " <3> MENU DE MBQUETTE <8> FINI DE JOU 

c^r/^™ P menu"" " MM ' IF "* = THEN yTAB 22: PRWT ! P ««" 

160 HOME 



130 

140 
159 



ROUTINE DEPILER2.LM 



9309- 


20 


BE 


DE 


JSR 


*DEBE 


0303- 


20 


7B 


DD 


JSR 


*DD7B 


9306- 


28 


FD 


E5 


JSR 


*E5FD 


0389- 


A6 


00 




LDY 


£*8Q 


030B- 


Bl 


5E 




LDA 


C$5E> ,Y 


038D- 


48 






PHA 


030E- 


C9 


22 




CMP 


£$22 


0310- 


F8 


03 




BEQ 


*931S 


0312- 


C8 






I NY 


031 3- 


DO 


F6 




BNE 


S038B 


0315- 


S4 


06 




STY 


$06 


0317- 


68 






PLA 


0318- 


A0 


00 




LDY 


£$00 


031A- 


63 






PLA 


031B- 


91 


5E 




ST A 


($5E) ,Y 


031 D- 


CS 






I NY 




031E- 


C4 


66 




CPY 


*06 


0320- 


D0 


FS 




BNE 


*031A 


322- 


20 


FB 


DA 


JSR 


*DAFB 


0325- 


20 


3D 


DB 


JSR 


$DB3D 


0328- 


60 






RTS 



Pour tester la virgule apres CALL 768 
Evolve la formuie et met le resultaf en FAC 
Est-ce que FAC adrme une chains ? 
Initialisation registre Y 

En 5E ef 5F, on lit fortress e de lo variable (pointeur 
provisoire) 

Si guillemets, fin de lecture, 

sinon on incremente Y de 1 pour aller lire un autre 
caractere 

Stockoge de la longueur de la variable 
Efiminotion des guillemets (on depile) 

Y rem is a zero 

Recuperation du dernier caractere... 
qui cJevfent le premier en ecrfture 

Y est incremente de 1 
Comparoison avec fongueur connue 
Boucle,., ou fin 

Envoie un retour chariot 
Affiche la ehame 

Retour au Bosic ■ 



GUY-HACHETTE 



TREMPLIN MICRO FICHE 4 



ADRESSES-ECRAN (Valables en 40 ou 80 colonnes) 



Votre ecran compte 24 lignes de 40 caracteres, mais elles sont numerotees de d 23 (les 
colonnes sont elles-memes numerotees de a 39). 

• POKE 37,0 = VTAB1 = LIGNE * POKE 36,0 = HTAB1 = COLONNE 

Essayez ce petit programme de demonstration (revoyez aussi la partie "FENETRE' J de 
notre fiche n°1). 

10 TEXT : HOME : FOR I = 1 TO 22 ; POKE 36, INT(RND(1) * 39) : POKE 37, INT(RND(1) * 23) : 
INVERSE : PRINT : NORMAL : NEXT 



LIGNE 


hex 


DEC 


LIGNE 


HEX 


DEC 





$400 - 


427 


1024- 


1063 


12 


$628 - 


64 F 


1576- 


1615 


1 


$480 - 


4A7 


1 152- 


1 197 


73 


$6A8- 


6CF 


1704- 


1743 


2 


$500 - 


527 


1280- 


1319 


14 


$728 - 


74 F 


1832- 


1 871 


3 


$580 - 


5A7 


1408- 


1447 


'15 


$7A8- 


7CF 


1960- 


1999 


4 


$600 - 


627 


1536- 


1575 


16 


$450 


477 


1 104- 


1 143 


5 


$680 - 


6A7 


1664^ 


1703 


17 


$4DO- 


4F7 


1232 - 


1271 


6 


$700 - 


727 


1792- 


1831 


18 


$550 - 


577 


1360- 


1399 


7 


$780 - 


7A7 


1920- 


1959 


19 


$5D0- 


5F7 


1488- 


1527 


8 


$428 - 


44F 


1064- 


1 103 


20 


$650 - 


677 


1616- 


1655 


9 


$4 AS - 


4CF 


1 192- 


1231 


21 


$6D0^ 


6F7 


1744- 


1783 


10 


$528 - 


54 F 


1320^ 


1359 


22 


$750 - 


777 


1872- 


191 1 


1 1 


$5 A8 - 


5CF 


1448- 


1487 


23 


$7D0- 


7F7 


2000- 


2039 



AFFICHAGE PAR POKE Utilisez les valeurs suivantes : 



c 


INV 


FLA 


NOR 


C 


INV 


FLA 


\'0!i 


C 


INV 


FLA 


NOR 


A 


i 


65 


129 


N 


14 


78 


142 





43 


112 


176 


B 


2 


66 


130 


O 


15 


79 


143 


1 


49 


113 


177 


C 


3 


67 


131 


P 


16 


80 


144 


2 


SO 


114 


178 


D 


4 


68 


132 


Q 


17 


81 


145 


3 


51 


115 


179 


E 


5 


69 


133 


R 


13 


82 


146 


4 


52 


116 


180 


F 


6 


70 


134 


S 


19 


83 


147 


5 


53 


1 17 


181 


G 


7 


71 


135 


T 


20 


84 


1 48 


6 


54 


1 18 


1 82 


H 


8 


72 


136 


U 


21 


85 


149 


7 


55 


1 19 


183 


1 


9 


73 


137 


V 


22 


86 


150 


8 


56 


120 


184 


J 


10 


74 


138 


w 


23 


87 


151 


9 


57 


121 


185 


K 


1 1 


75 


139 


X 


24 


88 


152 


ESP 


32 


96 


160 


L 


12 


76 


140 


Y 


25 


89 


153 










M 


13 


77 


141 


z 


26 


90 


154 











LEO END E i C= CARACTERE — INV-iNVERSE — FLA = FLASH — NQR = NORMAt 
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TREMPLIN MICRO 



FICHE4 



INPUT PAR LA ROUTINE $D52C (I NUN) 




100 
110 

120 
130 
140 
150 
160 



TEXT : PRINT CHR$ (12) ; CHR$ (21) : HOME 

FOR I = 768 TO 813 : READ R : POKE I, R : NEXT : I = 

1 = 1 + 1: HOME 

CALL 768, A$(l) 

!F A$(l) <> " THEN 120 

HOME : FOR J = 1 TO I : PRINT A$(J) : NEXT 

DATA 32, 190, 222, 32, 227, 223, 133, 133, 132, 134, 165, 184, 164, 185, 133, 135, 132, 136, 32, 
44, 213, 133, 13, 133, 14, 200, 32, 237, 227, 32, 61, 231, 32, 123, 218, 165, 135, 164, 136, 133, 
184. 132, 185,76, 183,0 



La ligne 160 correspond a ces 46 OCTETS ($2E) 



300 : 


20 


BE 


DE 


JSR 


$DEBE 


303 : 


20 


E3 


DF 


JSR 


$DFE3 


306 : 


85 


85 




STA 


$85 


308 : 


84 


86 




STY 


$86 


30A : 


A5 


B8 




LDA 


$B8 


30C : 


A4 


B9 




LDY 


$B9 


30E : 


85 


87 




STA 


$87 


310 : 


84 


88 




STY 


$88 


312 : 


: 20 


2C 


D5 


JSR 


$D52C ~ 


315 : 


: 85 


0D 




STA 


$0D 


317 : 


: 85 


0E 




STA 


$0E 


319 : 


; C8 






INY 




31A 


: 20 


ED 


E3 


JSR 


$E3ED 


31D 


: 20 


3D 


E7 


JSR 


$E73D "I 


320 


: 20 


7B 


DA 


JSR 


$DA7B J 


323 


: A5 


87 




LDA 


$87 ~ 


325 


: A4 


88 




LDY 


$88 


327 


: 85 


B8 




STA 


$B8 


329 


: 84 


B9 




STY 


$B9 


32B 


: 4C 


B7 


00 


JMP 


$00B7 



CHKCOAA : Cherche la virgule 

PTRGET : Lit le nom de la variable, la trouve ou la cree, en 
passant par CHRGET 

L'adresse de la variable (pointee par A et Y) est stockee dans 
VARPNT ($85-$86) 

On lit en $B8-$B9 (TXTPTR) l'adresse du dernier caractere de 
CHRGET. Elle est passee dans FORPNT, pointeur d'one chame 
a deplacer. 

INLIN : Caracteres ASCII dans le buffer. Le dernier est un 
A la sortie, A=0 et Y = 1 . A est passe dans $0D-$0E (caracte- 
res de fin de chame), puis Y est increments pour valoir 02. 

STRLT2 : Construit un descripteur de chame 
Laissons I'APPLESOFT travailler pour nous 



Lire et ecrire, 6 I'inverse de ce qui a ete fait plus haut (lignes 
30A-310) 

CHRGOT : Cest CHRGET, mais sans caractere. Retour au Basic. 

CONTROLE ; T = : FOR I = 768 TO 813 : T = T + PEEK (I) : NEXT : PRINT T 

Rosultat : 6 160 



EN BASIC 



Cest simple, 

mais un peu longuet 



1 00 HOME : A$ = "" : CALL — 1 0964 

110 FOR I = 512 TO 767 : IF PEEK (I) <> THEN A$ = A$ + CHR$ 

(PEEK (I)) : NEXT 
120 IF A$ = ""THEN 140 
130 J = J + 1 : B$(J) = A$ : GOTO 100 
140 HOME : FOR I = 1 TO J : PRINT B$(l) : NEXT 



Cet INPUT accepte tous les caracteres (y compris — attention ! — les caracteres de 
controle), mais pas les guillemets. Une variable peut commencer par des espaces. 



GUY-HACHETTE — TREMPLIN MICRO 



UTILITAIRE 



DOS 



ProDOS 




Ouvrez done 
une fenetre ! 



E langage machine, associe au Basic, 
vous autorise, avec un minimum 
d'octets, a ouvrir (et a refermer) 
une fenetre.., en un eclair ! 



19 TEXT t NORMAL : PRINT CHR* (12) ; CHR* <21>: HOME 
26 GOSUB 508 

36 IF < PEEK (886) + PEEK (828)) < > 192 THEN PRINT : PRINT CHR$ (4)" 

BLOAD FENETRE, LM" 
40 UTA8 8: HTAB 1: CALL - 958: INPUT "UTAB DEB -> » jU 
5fl UTAB 10: HTAB 1: CALL - 958: INPUT " UTAB FIN -> * jUF 
60 IF VF < V OR W > 23 THEN CALL - i 9S : GOTO 50 
70 UT = UF + 1 - U:HM = INT (255 / UT) 

30 UTAB 12: HTAB 1: CALL - 958: INPUT "HTAB DEB -> " ;HD 
90 UTAB 14: HTAB 1: CALL - 958: INPUT 11 HTAB FIN -> " jHF 
1O0 IF Hf < HO OR UF > 40 THEN CALL - 198:. GOTO 98 
110 IF HF + 1 - HD > HM THEN UTAB 20; PRINT "MAXIMUM=255 OCTETS 

LIGNES DE "HM" CARACTERES" : GOSUB 368: GOTO 88 
120 GOSUB 400: HOME 

136 FOP 1 - V TO UF: UTAB 1: HTAB HD i PRINT MID* ("12345678912345678912 

345678912345673?" ,HD,HF + 1 - HD): NEXT 
146 CALL 7^3: GOSUB 389: HOME 

150 UTAB 12: PRINT "RECUPERATION PAR ROUTINE EN BASIC": PRINT : GOSUB 370: 
HOME 

169 P = PEEK (24):UU - U: HTAB HD: UTAB W 
179 FOR I = 8192 TO 8192 + P - 1 :PS = PS + 1 

136 PRINT CHR* ( PEEK (1) - 128);: IF PS = HF + 1 - HD THEN PRINT " " :PS 

= 6:W = UU + 1: HTAB HD : UTAB UU 
190 NEXT 

260 GOSUb 3S0: HOME 

210 UTAB 52: PRINT "RECUPERATION PAR ROUTINE ASSEMBLEUR" : PRINT : GOSUB 37 
0: HOME 

226 GOSUB 410: GOSUB 380: HOME : UTAB 12: INUERSE : PRINT "APPLICATION" : N 
ORMAL : GOSUB 380 

23d m = "<.. >< >< >< >< — >< 

>< >< ....>" 

240 U = 4:UF = 28:HD = 5:HF = 19t GOSUB 400 

256 T* = u ": FOR I = 1 TO 1 :T$ = T* + "****" : NEXT t FOR I = 1 TO 23: UTAB 
I : PRINT T*: NEXT _^ 
260 CALL 768 



TREMPLIN MICRO 
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I FENETRE (suite) 

27@ Tl* * "": FOR I = HD TO HFsTl* - Tl$ f " "j NEXT : FOR I = V TO : VTA 

B 1: HTAB HD : PRINT Tlf: NEXT 
230 FOR I - 1 TO LEN CM$) STEP ]] :N = N + 1: UTAB U - 1 + N * 2: HTAB HD 

+ li INVERSE i PRINT CHR$ (N + 64);: NORMAL ! PRINT SPC( 1) MID* (M*, 

1,11): NEXT 
296 GOSUB 386: GOSUB 470; REM MEMO MENU 
300 GOSUB 420: REM RESTAURATI ON ECRAN 
310 bOSUB 380: GOSUB 490; REM RESTAURATION MENU 
320 GOSUB 380 :ES = ES + 1: IF ES < 5 THEN 306 
330 EX = EX + 1 : IF EX < 2 THEN ES - 0: HOME : GOTO 3G0 

340 HOME : VTAB 22: PRINT "<1> AUTRE FENETRE <2> FIN DE PROGRAMME": GOSUB 
388 

350 HOME : IF PEEK ( - 16384) = 49 THEN RUN 
36S END 

370 PRINT ,r ENFONCEZ UME TOUCHE PDUR EXECUTION 1 

386 CALL - 198; POKE - 16368,0: WAIT - 16384,128,127: POKE - 16368,0: 
RETURN 

390 REM LES PARAMETRES DE LA FENETRE SONT POQUES EN PAGE <*6 *7 48 49) 
460 POKE 6 f y - Is POKE 7 -VF - 1: POKE 8-HD - 1: POKE ?,HF: RETURN 
410 HOME 

420 CALL 867: REM POUR ROUTINE ECRAN 
43i3 CALL 768: REM ECRITURE ECRAN 
446 CALL 30 7: REM POUR RESTAURATION ->NEM 
450 RETURN 

460 REM MEMORISATION DU MENU APPLICATION) A PART I R DE $2100 
470 POKE 785, < PEEK (785)) + 1: POKE 831 ,( PEEK (831)) + Is: CALL 768: POK 
E 795, C PEEK (785)) - 1 : £OKE 831 ,( PEEK (831)) - is RETURN 

489 REM RECUPERATION DU MENU (APPLICATION) 

490 POKE 785, < PEEK <785>) + 1: POKE 831 ,( PEEK (831)) + Is: GOSUB 420: PO 
KB 785, < PEEK <785>) - li POKE 831 ,( PEEK <83*>> - It RETURN 

5Q0 VTAB 12; PRINT "APRES AUDIR REGARDE CETTE DEMONSTRATION, 1 j sez attentiu 

ement les instructions du programme dans T REM PL IN MICRO, et ne NE-GLIGE 

Z PAS 1 a courts rout i n-e en 1 angage roach i ne : " 
510 PRINT ; PRINT " il est probable que uous 1'utiliserez unjour ou 1 'autre 

, darts 1'un de uos pet i tsprograrwnes, pour ouvrir et -fermer... uneFENETR 

E . . , " 

520 PRINT : PRINT " " ; : GOSUB 370: RETURN 



TRANSMISSION DES PARAMETRES Onutiliselesadresses$6aS9et$18-19delapageiero. 



$06 ; Premiere Mgne de la fenetre (V) 

$07 ; Derniere ligne de la fenetre (VF) 

$08 : Premiere coJonne ou HTAB (HD) 

$09 : Derniere colonne (HF) 



$18 On y trouve le nombre de caracteres enregistres 
a partir de $2000 (ce n'est utile que dans le pro* 
gramme DEMO), 

$19 Pointeur utilise pour le nombre de lignes (dans 
Fenetre LAA). 



MEMORISATION Ce programme utilise I'adresse 2000, puis 2100, mais on pourrait sta- 
cker les precieux octets a la fin du programme en BASIC (en les protegeant par LOMEM). 

CONSEIL : Tapez le programme DEMO, REMarques comprises, et efforcez vous d J en bien comprertdre le fonctionnement. 
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I FENETRE.LM 



BSAVE FENETRE, LM, A $3 00, L$42 



@ 3 © — 




y y 




L D>, 






ii o *^ 


Hg 


U 6 










y Jt"4 — 


CI F 






ST A 


$ i y 




Li -"j i* ^ 


i—i U 






Lur 


^i ^0 @ 




t 1 O t 1 o 






P Lj 


t a c? 
Dh 






O Ci O _ 


M H 1 


ft Q 






* Ho 




u Jtj L' — 


P 1 


O Q 




[ r-, -■ ■- 




1 F 


ft O cr 


on 


ft ft 


dC_ £* 


b 1 R 


± l^t M M 


i A 


ft q 1 Q_ 


r ft 






ill 1 






ft *3 1 Q _ 








T h IV 






Pi *5 1 *3 — 




ft O 




UrT 


* tl r 




u O 1 u — 




r ^ 




C't- J r 


.* i"< '"■> ru 




ft ^ 1 o _ 


r - 1 


1 Q 

i y 




LUH 


-it 1 o 








ft "7 




CrlP 


Sfc@ 7 




tlJJ L 


r 






BEQ 


* 3 2 4 




© w X C 


1 o 






LLC 






ft Q 1 P _ 


a X 


ft <l 

u 1 




Hi U L- 


t^y l 




ft 1 — 
O J ^ 1 


il P 

U- 


ft 




TK A J~i 

J rlK 






ft QOd 

U O j_ *i 


O o 


I O 




b f X 


SIS 




ft O ^ 
U O jL O 


Otl 






RTS 






Q '3 O "7 _ 


/ ■. O 


fa if^ 






t $-0 




U J ^ x — 




^? u 


ft Q 


L Uh 






Li q 9 p „ 


Ho 






f— t |_ I ,v 






ft ion_ 
y o i, m 


PPi 




ft Q 


i P'. 


* 3 d V 


, X 




9D 






O 1 H 


-± ft q ft rj 


, A 


6333- 


68 






PL A 






0334- 


90 


3D 


3 


STA 


*0 33D 


,x 


0337- 


E3 






I NX 






0333- 


E0 


5 




CPX 


£*05 




033A- 


D0 


ED 




BNE 


^0329 




033C- 


60 






RTS 






©33D- 


ED 


L1 U 


2d 


LDA 


$2000 




^340- 


91 


23 




STA 


C*28> 





Mise 6 z^ro du registre X (compteur) 

On lit dans $6 Id nurnero de lo premiere ligne, .. 

... et on le charge dans la case-memoire $19 

Initialisation de Y (boude pour 1 ligne) 

$FBC1 va calculer I'adresse du debut de Ja ligne 

Y est charge avec HTAB (debut fenetre) 

Lecture de I'octet qui est affiche a I'adresse S28-29 + Y 

Ecriture a I'adresse 2000 + X 

On incremente Y... 

... ainsi que X 

On compare Y ou contenu de $9 (fin de fenetre} 
S r iJ n J y a pas egalrte r boucle 
Accumulateur charge avec $1 9 
Compciralson avec $7 (demiere ligne fenetre) 
Sf c'esl termrne, on saute 6 $324 
Srnon, annulation de la retenue 
... pour incremenfer de 1 

Vers une nouvelle ligne 

X est ecrif dans la case-memoire $18 

ftetaurau Basic^ 



II s'agft, tc\ t de remplacer les lignes 30D et 3ffF 
par les lignes 33D et 340 H et vice-versa. 

Rappelons que PHA (48) permet de mettre sur la 
pile et PLA [68] de recuperer I'octet qui a ete 
empiler le dernier. 



s instructions permettenf de restaurer la 
litre. 



POUR TAPER 

FENETRE. LAA, 

executez exoctement 
ces operations; quand le 
programme sera enre- 
gistre sur disquette, 
tapez CTRL-C et RETURN 
pour sortir du moniteur 
(ou CTRL-C + RESET). 

VERIFICATION a effec^ 
tuer en mode direct, Le 
resultat doit etre 6500, 



&CALL-1 51 



RETURN 



*30fi;A2 00 A 5 ft 6 85 1 V AO 9 28 Cl FB A4 

83 El 23 9D @@ 2@ CS E8 C4 09 D@ F5 A? 
19 CS 67 F0 06 18 69 ©1 4C 04 03 86 19 6 
A2 00 BD 0D 83 48 BD 3D 03 9D 0D 83 6B 

9D 3D 63 E8 E0 05 D6 ED 60 BD 00 20 91 
28 



RETURN 



* B SAM E FENETRE, A* 30 ? L'^42 



RETURN 



ST=0 : F0RT = 7.63 TO 833 ; T = T+PEEK< I > SNEXT 
PR I NTT 



^50 



RETURN 
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DEMO 






GOTO 




acrobatique 
par le truchement 
de I'Ampersand 



Lorsque le signe & est rencontre dans un programme en Basic, celui-ci effectue un saut 
inconditionnel a I'adresse $3F5 (1013). On comprend immediatement que ce saut ne ser- 
virait a rien si on ne pla^ait pas, a cette adresse, une autre instruction de saut, mais 
cette fois vers une routine en langage machine. 



1 
2 



6 



8 
18 
20 
30 
40 
50 
60 
70 
80 
?0 
100 

110 

129 
136 

140 
150 

160 
170 
188 
190 

200 



TEXT : PRINT CHR* <4)"PR£3": PRINT : HOME 

PRINT "GOTO ACROBATIQUE PAR LE TRUCHEMENT DE L'AMPER 

SAND •&)": VTAB 2: GOSUB 410 

PRINT " 10 A = 70;B = 100": PRINT " 20 T* = " CHR* < 
34) , *T0T0" CHR* (34): PRINT " 38 & A" 
PRINT " 48 T* = " CHR* <34>"LILI " CHR* (34): PRINT " 
58 PRINT T*" 

PRINT " 68 IF X = 1 THEN X = X + 1 : & B" : PRINT " 7 
X = X + 1: IF X = 3 THEN END": PRINT " 80 PRINT T 
*" 

PRINT " 



PRINT " CHR* (34)"LIG 
& 8 * 10" 



GOTO est remplace par & et 
le numero de ligne par des 
variables ou par des nombres. 



90 & 40" : PRINT "100 
NE 108" CHR* (34): PRINT "118 
PRINT "§RUN" : PRINT 
GOSUB 360 
A = 78 :B = 188 
T* = "TOTO" 

& A 
T* = "LILI" 
PRINT T* 

IF X = 1 THEN X = X + 1 : & B 
X = X + 1 : IF X = 3 THEN 128 
PRINT T* 
& 48 

PRINT "LIGNE 180" 
& 8 * 10 

POKE 34,2: GOSUB 410 

POKE 32,36: POKE 33,44: UTAB 16: PRINT : INVERSE :P* 
= "ESSAYONS DE COMPRENDRE" : GOSUB 420: NORMAL 
'vTAB 5: PRINT 

P$ = "- + CHR* (34) + "& A" + CHR* (34) + " = GOT 
70 puisque A = 78": GOSUB 428 
VTAB 9: PRINT 

P* = "- ici, X vaut done 1": GOSUB 428 
VTAB 10: PRINT 

P* = "- on af-fiche T* = " + CHR* (34) + "TOTO" + CH 
R* (34) : GOSUB 428 

VTAB 11: PRINT :P* = "- GOTO 48, tout simplement": G 
OSUB 428 



Ce programme de 
demonstration 
vous montre, par 
exemple, com- 
ment modifier la 
fonction GOTO... 
et surtout, com- 
ment ca marche. 

Attention ! une 
carte 80 colonnes 
est indispensable 
pour reussir un 
off ichage correct. 



peut etre interes- 
sant, notamment dans 
un club, de mettre au 
point de petits pro- 
grammes de DEMO, 
parfois plus "par- 
lants" que de longues 
explications, 
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******** 



Mote/ que I 'on sauve- 
garde tres simplement 
(en Bosk) le contenu des 
adresses 1013 a 1015 
(3F5 a 3F7). Celo se 
passe a la ligne 360, 
|| est aussi facile de res- 
tituer a I'Apple ses para- 
metres d'ongine „ des 
qui Is ne sont plus utili- 
ses (ligne 400). 



Ces pokes constituent a 
eux seuls le programme 
en langage machine, 
implants? a partir de 
Tadresse 76B. 



Bruit famiiier aux ^ 
lecteurs de T.M, ... et 
rasoir quand on se 
repasse le programme ! 



210 VTA 8 6: PRINT :P$ = T$ y deuient " + CHR$ <34) + 

"LILI" + CHR* (34)1 60SUB 420 
226 VTAB 7: PRINT :P$ = et on I'ftfH'tfee" ; GOSUB 420 
236 VTAB 8: PRINT sP* = "- X waut 2 , . ,& B - GOTO 189": 
GOSUB 420 

249 VTAB 12; PRINT ;P* = n - " + CHRi (34) + "LIGNE 166" 

* CHR$ C34) + " s'imprime": GOSUB 420 

250 VTAB 13! PRINT :P$ ™ "- GOTO 80 (3 * 1 > " : GOSUB 428 
260 UTAB 16: PRINT :P* = rp - T$ est devenu " * CHR$ (34) 

+ "LILT 1 + CHR* <34) + " depu i s la ligne 40": GQSUB 
428 

270 UTAB 111 PRINT :F* = cette fois, c 'est un GOTO 40 
" : GOSUB 429 

286 UTAB 6: PRINT sPt - "- T$ y est toujour* " + CHR* < 

34) + "LILI" + CHR* <34): GOSUB 429 
299 UTAB 7: PRINT : P$ = "- et on l'affiche encore une *o 

is" : GOSUB 420 

309 VTA 8 3: PRINT :P* = et X ne vaut pas 1, mais bien 

2, . ■ " t GOSUB 420 

310 UTAB 9: PRINT :P* = et maintenant 3.*- c'est la t 
in < END) " : GOSUB 420 

320 GOSUB 490 

330 VTAB 18 j PRINT I PRINT " <1> TOUT RECOMMENCER <2> FIN 
(HOME) B JI GET R*: IF R* = ,, 2" THEN TEXT : HOME : 
END 

340 IF R* = "l" THEN RUN 
350 POKE - 16368,81 GOTO 330 

360 FOR I = 1613 TO 1B15:M<I - 1012) = PEEK (1): NEXT 

378 POKE 1013,76: POKE 1014,0: POKE 1015,3 

380 POKE 768,32: POKE 769,123: POKE 770,221: POKE 771,32 

: POKE 772,32: POKE 773,231: POKE 774,32: POKE 775,26 

: POKE 776 ,214 e POKE 777,144; POKE 778,3 
390 POKE 77?, 76: POKE 736,65: POKE 781,217s POKE 782,162 

I POKE 783,90; POKE 784,76: POKE 785,13: POKF 706,212 

: RETURN 

498 FOR I = 1013 TO 10J5: POKE I, MCI - 1012): NEXT ! RET 
URN 

419 FOR I = 1 TO 10 i PRINT " ";: NEXT : PRINT * p : 

RETURN 

420 FOR I = 1 TO LEN <P*>: PRINT MID* (^$,I,i>?S FOR J 

« I TO 10:BUZZ = PEEK (49200): NEXT : NEXT : PRINT 

430 RR = RR + 1 : I F RR = 4 OR RR = 7 OR RR = 9 OR RR = i 1 

OR RR = 14 THEN 450 
440 CALL -198: POKE - 16363,9: WAIT - 16384,128,127: 

POKE - 16368,0: RETURN 
459 AF = AF + 1: POKE 32,0: UTAB AF + 16: HTAB 1: 1NUERSE 

: ON AF GOTO 468,480,479,480,480 
469 PRINT "TGTO": GOTO 490 
478 PRINT "LIGNE 100": GOTO 499 
480 PRINT "LILI" 

490 NORMAL : POKE 32,36: PRINT : GOTO 440 



rnim 1 
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DOS 3.3 


ProDOS 



Utilisation de la page 2 (TEXT) 
pour stacker un ecran 

La PAGE 1 de votre Apple est ufilisee pour I'affichage cle la page TEXT, mais il exist© 
une PAGE 2 t capable de remplir le meme role, mais habituellement occupee par le 
debut du programme en Basic. En effet, la PAGE 1 occupe I'espace-memoire $400-7FF 
(1024-2047) et la PAGE 2 I'espace-memoire $800-BFF (2048-3071). II s'agit done, dans 
un premier temps, d'obliger votre cher APPLE a memoriser le programme BASIC a 
partir de I'adresse 3073.,. ce que fait la ligne 10 de notre DEMO. Tromper I'ennemi 
(ou le meilleur ami) en somme ! Quel usage tirer de cette fameuse page 2 ? Cela 
dependra de voire imagination. 



} G 



20 



39 

46 
50 



62 
79 

88 

90 

100 

110 

129 
130 
149 
150 



160 

170 
190 



PEEK (104) * 
104,12: POKE 



TEXT : NORMAL : PRINT 
: HGR2 : POKE 49234,0 
PAGE INFOS 
IF PEEK < 193) + 
POKE 103,1; POKE 
(4>"RUN PAGE1 .2" 
C* = "TAB": IF PEEK 
-I" 

GOSUB 280: GOSUB 190 
T* = ""; TEXT ; UTAB 23; 
ONS EN TAPAMT "C*: UTAB 

+ ... NEXT i PRINT 

HOME 

GET R*: CALL 774,R*:R = 
< 127 THEN PRINT Rt; 

IF R = 8 AND PEEK (36) 
(36) - 1 : GOTO 79 

IF R — 21 AND PEEK (36) 

(36) + 1: GOTO 7B 
IF R " 11 AND PEEK (37) 
K (37) - 1: CALL - 990; 
IF R = 10 AND PEEK (37) 

(37) + 1: CALL - 990 
IF R = 2 THEN INVERSE 
IF R = t THEN NORMAL 
IF R = 6 THEN END 

IF R = 22 THEN POKE 35,24 
SE : PRINT fl <0> POUR HOME 
T Ir " ! IF S$ < > "0" THEN 
1 : POKE 35,21 :R = 3 
IF R = 22 THEN HOME 
GOTO 70 
INVERSE 



CHR$ <12) j CHR$ (21) : 
REM ECRITURE MASQUEE 



256 < 
3072,0 



> 3073 
PRINT 



HOME 
DE LA 

THEN 
CHR$ 



( - 637) < 255 THEN C* = H CTRL 



PRINT 11 PAGE D'INFORMATI 
22: FOR I = 1 TO 10:T$ = T$ 
T$: POKE 34,0! POKE 



35 5 21 



ASC <R*) : IF R > 31 AND R 



< > THEN POKE 36, PEEK 



< 39 THEN POKE 36, PEEK 



< > 
GOTO 

< 26 



THEN POKE 37 j PEE 
70 

THEN POKE 37, PEEK 



i UTAB 22: HTAB 1 : JNUER 
5 : NORMAL : GET S$: PRIN 
UTAB 22: PRINT T$ : UTAB 



FOR I - 1 TO 22: UTAB I: HTAB 1 : PRINT 



^ Permet d'ecrire sans 
etre vu par les petits 
curieux ! 



Attention ! quand vous 
taperez RUN, vous Irez 
lire le programme PA- 
GE! .2 sur la disqoette, 
Sauvez votre aeuvre au 
prealable I 

^ Quand on n'a pas la 
touche TAB, on tape un 
CTRL-I. Cest pareil ! 



Cette partie du pro- 
gramme n'est pas vrai- 
ment bldon... et il y man- 
que peu de chose pour 
en faire une routine de 
saisie d'ecrans, mais ce 
n'est qu'une DEMO, ne 
I'oubliez pas. 
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Ecriture en PAGE 2 

Vous ourez certoinement 
une idee pour une applica- 
tion plus personnelfe,.* 



Parametres pour trans- v 
fertPAGEl vers PAGE2 ▼ 



POKES OR NOT POKES ? 
"THAT IS THE (MAUVAISE) 
QUESTION.., 



20 6 IF I = i OR I = 22 THEN FOR J = 2 TO 3?l HTAB J I 

PRINT " B ;s NEXT 
210 HTAB 48: PRINT 11 11 : NEXT : NORMAL 
228 POKE 32,2: POKE 33,36; POKE 34,2: POKE 35,22 
230 vTAB 2: HTAB 1 s PRINT 

248 INVERSE : READ Ml PRINT A*: NORMAL : PRINT : PRIN 
T s READ At: PRINT A* : PRINT : PRINT : PRINT : FOR 
I = 1 TO 4; READ A$: PRINT " "A*: PRINT : NEXT 

259 INVERSE : PRINT : PRINT "ET PLACE A VOTRE GRANDE I 
MAC I NAT I ON! 11 i NORMAL 

2*9 POKE 60,8: POKE 61,4: POKE 62,255: POKE 63,7: POKE 
66,8: POKE 67,8; CALL 768: REM TRANSFERT PAGE 1 A 
PAGE 2 

270 POKE 34,0: POKE 32,8s POKE 33,49s POKE 35,24: HOME 
: RETURN 

280 POKE 768,216: POKE 769,166: POKE 770,0: POKE 771,7 
6: POKE 772,44: POKE 773,254: REM TRANSFERT PABE 1 
A 2 

290 POKE 774,32; POKE 775,190: POKE 776,222: POKE 777, 
32: POKE 778,123: POKE 779,221: POKE 780,32: POKE 7 
83,253: POKE 782,229: POKE 783,160: POKE 784,0: POK 
E 785,177: POKE 786, ?4r POKE 787,201 

386 POKE 788,8?: POKE 789,208: POKE 790,9; POKE 791,17 
3: POKE 792,85: POKE 793,192: POKE 794,32: POKE 795 
,12: POKE 796,253: POKE 797,173: POKE 798,84: POKE 
799,192: POKE 808,96: RETURN : REM TEST CTRL-I ET A 
FFICHAGE PAGE2 

310 DATA RESUME DES COMMANDES, Ut f t isez 1 es FLECHES d 
e T APPLE,- CTRL -A = Mode NORMAL , - CTRL-B = Mode IN 
VERSE,- CTRL-F = Fin d* programme,- CTRL-V = Vider 
TECRAN 



LES LJGNES DE POKES (280 a 300) 



Ces trois instructions utilisent les parametres transmis par les POKES de la ligne 260 (nous avons deja utilise cette 
methods a plusieurs reprises). 



0390- 


DS 






CLD 




Annulation du mode decimal eventuel 


0301- 


A0 


00 




LDY 


£*0 


Regisrre Y mis a 


0383- 


4C 


2C 


FE 


JMP 


*FE2C 


MOVE exlste... pourquai s'en prtver ? 


Interpretation du caractere saisi par GEL mais notre routine est prevue pour un INPUT normal (voir la pile, page 40). 


0304- 


20 


BE 


DE 


JSR 


*DEBE 


Y a-t-il une virgule apres CALL 768 ? 


0309- 


20 


7B 


DD 


JSR 


*E>07B 


Evaluation de la variable ; Rdsultat en FAC 


630C- 


20 


FD 


E5 


JSR 


$E5FD 


Est-ce bien une chafne ? 


030F- 


A9 


00 




LDY 


£*00 


Y mis 6 zero 


031 1- 


Bl 


5E 




LDA 


($5E> ,Y 


Adressage indirect (adresse fue en 5E-5F-HY) 


0313- 


C9 


09 




CMP 


£*09 


Est-ce CTRL-I ? 


0315- 


D0 


09 




BNE 


*S320 


Non ? retour au Basic 


0317- 


AD 


55 


C0 


LDA 


*C055 


Oui... alors POKE-16299,0 (PAGE2) 


031A- 


20 


0C 


FD 


JSR 


*FD8C 


Correspond au GET du Basic 


03ID- 


AD 


54 


C0 


LDA 


*C0 54 


Equivalent de POKE-1 6300,0 {PAGE1 ) 


0320- 


60 






RTS 




Vers programme Basic 


TREMPLIN MICRO 






WH«HH 
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RECRE 



DOS 



ProDOS 



Logogrille 



LA PHRASE CACHEE 




AITES une farce a vos amis en 
leur envoyant cette etrange 
grille, a charge, pour eux, d'y decou- 
vrir le message que votre Apple y 
aura dissimule... a votre instigation 
bien sOr ! 

LE PROGRAMME 
SE COMPOSE DE 




LOGOGRILLE (en Basic) : pages 50 a 53 
LOGO-CAR (Fonte elementaire) : pages 53 et 54 
LOGO.EGILOR (Embryon de fonte) : page 55 



100 

185 

110 
115 
120 
5 
130 
135 
140 



12 e 



LOMEM : 16385 

TEXT : NORMAL : PRINT CHR* <12)j CHR* (21): HOME 
: HGR 
6 = 6509: GOTO 490 

■ 
■ 

REM ****************************** 

REM *** AFFICHAGE AVEC BRUIT *** 
REM ****************************** 



a LOMEM protege la tota- 
^ lite du programme, airrsi 
que la page graphique 

a G = adresse de charge- 
ment de la fonte EGI- 
LOR. 



145 
150 
155 
160 
165 
170 
175 



FOR 
J 

N 

REM 
REM 
REM 



I = 1 TO LEN <T*>: PRINT MID* <T*,I,1);: FOR 
1 TO 10:X = PEEK (49200): NEXT : NEXT : RETUR 



****************************** 

*** PAGE GRAPHIQUE *** 
****************************** 



MS = 0:MT = 0: HOME : TEXT : CALL 62450 
FOR I = TO 187 STEP 11: HPLOT , I TO 275,1: NEXT 



a Pour abreger le temps 
^ d'affichage (avec bruit), 
modifiez la seconde bou- 
cle : FOR J = 1 TO 5, par 
exemple. 



180 FOR I = TO 275 STEP 11: HPLOT 1,0 TO 1,187: NEXT 

185 POKE - 16297,0: POKE - 16302,0: POKE - 16300,0: 

POKE - 16304,0 
190 D m 3:IN = 1 1 :T = D:S = - 8:SL = 0:TL = 
195 LA = 25:HA = 17: FOR I = 6000 TO 5999 + (LA * HA): 

POKE 1,0: NEXT 
200 I = 1 :S = S + IN: GOTO 285 
205 I = I + 1: IF I > LEN (T*) THEN 330 

210 N = N + 1 : IF N > 1 AND AL < > D THEN N = 0: GOTO 
220 



4 CALL 62450 efface la 
^ page dans laquelle on 
ecrit (ici : HGR). 
Les lignes 175 et 180 tracent 
la grille. 



4 



HGR sans effacement et 
sans les lignes de texte. 

La grille est simulee, en 



memoire, par une sene 
de POKES. 



* LOGOGRILLE est une mar- 
que deposee. 
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r 

mm* ■MifiiiHinmii 



On n'explique pas cet 
imbroglio, mats iJ n est pas 
interdit de chercher de 
meilleurs algori fhmes, bien 
an contraire J 



Ces deux lignes evitent 
fe$ blocages ; on efface 
tout et on recommence I 



Les 26 caracteres de la 
fante sont numerates de 
1 6 26. 

Done A = l (ASC 65-64) 



215 IF AL < > 9 THEN 225 

229 AL = 1 + INT ( RND < 1 ) * 7) : 3 F AL > 4 THEN AL = A 

L - 3 

225 IF S > = SL AND ( INT < RND U) * 3) = 0) THEN AL 
= 4 

230 MS = SiMT = T 

235 ON AL GOTO 249,253,260,270 
240 IF S > 256" THEN 289 
245 S = S + IN: GOTO 285 

250 IF S < 14 OR T > 168 OR T < TL THEN 286 

255 S = S - IN: GOTO 285 

268 IF T > 168 THEN 280 

265 T = T + IN! GOTO 285 

270 IF T < 14 OR SL > S THEN 280 

275 T = T - IN r GOTO 285 

280 AL = : GOTO 220 

285 H = <S + 8) / 1N;M = (T * 8) / INiAD = V * LA + H:A 
D = 5974 + AD 

2?0 IF MS = 267 AND MT = 3 AND PEEK (AD + LA) < > 
THEN 170 

295 IF MS = 267 AND MT > 168 AND PEEK CAD - LA) < > 
THEN 170 

300 IF PEEK < AD) < > THEN S = MS:T = Ml: GOTO 229 

305 A = A5C < MID$ <T$,I ,1)) 

318 POKE AD, A 

315 IF S > SL THEN SL = S 

329 IF T > TL THEN TL = T 

325 DRAW A - 64 AT S,T: GOTO 295 

330 S = - 8:T = 3 

335 FOR I = 6000 TO 6424;S = S + IN: IF S = 278 THEN S 
= 3:T = T + IN 

349 A = PEEK <I): IF A = THEN A = 65 + INT < RND < 1 

) * 26) 

345 DRAW A - 64 AT S,T: NEXT 

350 i 

355 REM #*##***##*#**#***#**♦****#**** 
360 REM *** IMPRESSION *** 

365 REM ****************************** 
370 : 



(SUITE PAGE 52) 



LES PROBLEMES 
d'imprimante 



TREMPLIN MICRO 



II est impossible, dans le cadre d'une revue speciali- 
st, de publier des programmes et des conseils con- 
cernant toutes les impri mantes du marchd 
Les compatibility, quand elles existent, sont sou- 
vent sujettes & caution. 

Exigez de votre fournisseur une documentation 
complete — et en frangais — et demandez a voir 
fonctionner la bete avant tout achat. 



Nous nous int^resserons par contre A image Writer, la 
plus vendue, actuel lenient, aux possesseurs d'Apple, 
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Logogrille (suite) 



375 s PR£ 1: PRINT CHR* <9)"G": PR£ 6 
339 POKE - U3&1 ,0 

385 HOME s PRINT : UTAB 22: PRINT "<1> IMPRESS! ON DE L 

A REPONSE <2> NON 11 ; : GET R* 
3?G ON R$ < > "1" AND R$ < > "2" GOTO 385: PRINT R* 
395 IF R* = "1" THEN POKE - 16302,0: 60T0 405 
40ft GOTO 439 

405 POKE - 16302,0: PRINT : PR£ 1 : PRINT CHR$ (27)"n 

" | i PRINT CHRf <27)"L020" 
410 C = 0; FOR I - 6S00 TO 6424:C = C + 1: IF C = 26 TH 

EN PRINT :C = 1 
415 A = PEEK (I): IF A = THEN A - 32 
420 PRINT CHRf <A>;: NEXT : PRINT 
425 PR£ 

430 HOME : TEXT : END 
435 : 

448 REM ************* ***************** 
445 REM *** INSTALLATION FONT *#* 
458 REM ****************************** 
455 : 

460 POKE 232 ,G - INT (G / 256) * 256: POKE 233, INT < 
G / 256): RETURN 

465 : 

470 REM ****************************** 
475 REM *** LOGOGRILLE *** 

4B0 REM ****************************** 
485 : 

4?0 HCOLOR= 3: RDT= 0: SCALE= 1 

495 PRINT CHR* (4)"BLOAD LOGO.EGILOR,A"G 

590 G05U8 469:S = 40 

595 T* = "4525263441": FOR I = 1 TO 10: DRAW UAL k MID 
$ <T$ f I f t>) AT S,58:S = S + 19: IF I = 6 OR I = 7 T 
HEN S = S - 3 

510 NEXT :S = S - 19: G = 7208 

515 PRINT CHR* C4) JI BLOAD LOGO . CAR ,A" G : SPEED= 50 
520 FOR I = 10 TO 1 STEP - 1: XDRALJ UAL ( MID* <T$ , I 
,1)) AT S,50sS = 3-19: IF I - 8 OR I = ? THEN S = 
S + 3 

525 NEXT :S = 9s SPEED= 255: GOSUB 469 
530 : 

535 REM ****************************** 
540 REM *** SAI5IE DE LA PHRASE *** 
545 REM ****************************** 
550 i 



INVERSE : F 
"s NEXT : C 



555 TEXT : POKE 32,11: POKE 33,20: PRINT 

OR I = 1 TO 3: PRINT lh 

ALL - 998: CALL - 998: PRINT pp LA PHRASE CACHEE " 

: NORMAL : CALL - 926: TEXT 
566 T* - 1J " : FOR I = 1 TO 10:T$ = T* + fl ": NEXT : N 

ORMAL : PRINT Tf 



Avec une interface ameri- 
caine (vendue par BIP) ( il 
suffit de taper CHR$(9) "G" 
pour obtenir lo copie de lo 
page HGR. Helas ! pas de 
slot pour cette interface sur 
V Apple He I 



Notez que ; 

- POKE — 163V 1.0 permet 
de visuoliser les A der- 
nier es lignes de texte de 
la page HGR [21 6 24), 

_ POKE — 16302,0 restitue 
la page graphique 
entiere (sans effacer le 
texte d'ailleurs). 



. 232 ei 233 (SE8 et $E9) : 
TApple lit ici Tadresse 
du debul de voire table de 
formes. 



j Ligne d'initialisation 
^ obligotoire. 

a Trace du titre LOGO- 
GRILLE en gros caracte- 
res (nullement obligatoire). 



j Effacement de ce rneme 
^ titre* On se foit plaisir, 
tout simplement ! 
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CALL — 912 provoque le ^ 
deroulement des lignes ^ 
de I'ecran texte vers le haut 
(SCROLL). 



Permet la saisie de la 
ponctuation (inutile ici). 



X 



565 



576 



580 




598 
595 

400 

665 
610 



PRINT : PRINT :T$ = " TAPE2 CI-DESSOUS UNE PHRASE < 
UN MESSAGE) D' ENVIRON 150 LETTRES, UNI QUEMENT EN MA- 
JUSCULES, ET SANS PONCTUATION (ELLE SERA EN TOUT CAS 
ELIMINEE) . " 

GOSUB 140: FOR I = 1 TO 13: CALL - 912: FOR J = 1 

TO 10:X = PEEK (49200): NEXT : NEXT 
UTAB 13: HTAB 1: CALL - 958: FOR I = 1 TO 40; PRI 
NT " " i : NEXT 

vTAB 13: HTAB 1: PRINT "";: CALL - 657 :T$ = "": F 
OR X = 512 TO 767 :A = PEEK (X): IF A = 141 THEN 59 
5 

A = A - 128: IF A > 64 AND A < 91 THEN T* = T$ + C 
HR$ <A) 
NEXT X 



vTAB 17: 
vTAB 23: 
REFAIRE 
IF R$ < 
GOTO 175 



PRINT : GOSUB 140 

HTAB 1: PRINT "<1> D'ACCORD <2> TOUT 

> "j: GET R$ : IF R* = "2" THEN 575 

> "1" THEN 606 




Cette fonte (qui n'est pas standard) est seulement 
composee des 26 lettres (capitales) de I'aiphabet. 
Elle a ete concue pour ce programme. 

ENREGISTREMENT. — Taper CALL — 151, puis rentrer les valeurs, en les separant par 
un espace, comme ceci : 

* 6000 : 26 00 38 00 4A 00 5B 00 et RETURN, etc. 



6000- 


26 





38 





4A 





5B 





60A8- 


4E 








6D 


31 


DF 


3 ~? 


6D 


6008- 


6B 





7B 





S A 





99 





60B0- 


31 


3F 


3F 


2E 


4D 


FE 


3 E3 


2E 


60 1 0- 


AB 





BE 





CB 





DB 


00 


60B3- 


4D 


4E 











09 


29 


2D 


60 1 8- 


EC 





F3 





0E 


1 


1 F 


1 


60C0- 


IE 


37 


35 


37 


35 


BF 


2D 


75 


6020- 


30 


1 


40 


1 


52 


1 


63 


01 


60C8- 


1 





9 




35 


37 


35 


FF 


6028- 


74 


01 


81 


1 


92 


1 


Al 


01 


60D0- 


1 3 


4D 


35 


FF 


33 


2D 


2D 


4E 


60 30- 


B6 


01 




01 


D3 


1 





6 


60D8- 








31 


6D 


31 


DF 


37 




60 38- 


29 


2D 


FE 


3B 


2E 


4D 


FE 


3B 


60E0- 


1 E 


3F 


2E 


0D 


1 5 


DF 


37 


6D 


60 40- 


2E 


2D 


35 


DF 


37 


6D 


71 


01 


60E8- 


71 


01 







35 


37 


35 


37 


60 48- 





9 


2D 


1 5 


1 F 


37 


6D 


3E 


60F0- 


35 


37 


2D 


2D 


4E 





00 


DF 


6050- 


3F 


2E 


4D 


FE 


3B 


2E 


2D 


75 


60F8- 


29 


0D 


AD 


DF 


IF 


37 


6D 


4D 


6058- 


1 





4A 




AD 


DF 


37 


35 


6100- 


FE 


FB 


37 


6D 


4D 


FE 


FB 


37 


60 6 - 


37 


6D 


1 1 


DF 


3 *? 


2D 


2D 


4E 


6103- 


60 


4D 


4E 








2D 


2D 


AD 


60 68- 








2D 


2D 


AD 


1 F 


37 


6D 


6110- 


DF 


37 


6D 


31 


DF 


37 


6D 


31 


60 70- 


FE 


%J 1 


6D 


FE 


BF 


2D 


2D 


4E 


61 1 3- 


DF 


37 


6D 


71 


1 


00 





29 


6078- 








2D 


2D 


F5 


3B 


2E 


8D 


6120- 


AD 


DF 


37 


6D 


31 


DF 


37 


6D 


6080- 


3F 


37 


35 


37 


2D 


2D 


4E 





61 28- 


31 


DF 


37 


2D 


75 


9 








6088- 





2D 


2D 


2D 


DE 


3B 


2E 


8D 


61 30 - 


2D 


AD 


DF 


37 


6D 


31 


3F 


3F 


6090- 


3F 


37 


35 


37 


75 


49 


1 





61 38- 


2E 


3E 


2E 


4E 


49 








AD 


6098- 


29 


29 


2D 


DE 


3B 


2E 


4D 


3A 


61 40- 




AD 


DF 


3 7 


6D 


31 


DF 


37 


60A0- 


1 F 


37 


6D 


31 


DF 


37 


2D 


2D 


61 48- 


2D 


0D 


1 E 


1 F 


7 7 


6D 


4E 
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LOGO.CAR 



IIHUli 



I MM MMM MM MMM MMM MMMMM MM MM MM MM MM Bllffri MM IfM » A M ■ ■ ■ ■ » ■ * ■ ■ ■ II MM MM MM MM MMMM MM H ■ ■ MMMMM MMMMMMMMMMM 



6150- 





60 


2D 


1 5 


1 F 


37 


6D 


3E 


61 58- 


3F 


2E 


4D 


FE 


3 B 


2E 


4D 


4E 


6160-" 


86 


8 6 


29 


29 


2D 


DE 


3B 


2E 


61 68- 


GO 


3F 


4E 


35 


F F 


13 


2D 


2D 


6170- 


4E 


00 


00 


00 


2D 


2D 


F5 


3B 


61 78- 


2E 


3E 


2E 


3E 


2E 


4E 


09 





61 80- 


DF 


6D 


31 


DF 


37 


6D 


31 


DF 


6188- 


37 


6D 


31 


DF 


37 


2D 


75 


9 


6190- 


00 


00 


6D 


31 


DF 


37 


6D 


31 



61 98- 


DF 


37 


6D 


Fl 


1 F 


0E 


4E 


09 


61 A0- 


00 


60 


49 


FE 


FB 


37 


6D 


4D 


61 A8- 


FF 


FB 


37 


6D 


4D 


IE 


IF 


1 F 


61 80- 


0E 


D 


4E 


69 


00 


00 


6D 


31 


61 B8- 


DF 


77 


0D 


IE 


1 7 


0D 


1 5 


DF 


61 C0- 


37 


6D 


71 


1 


00 


4A 


6D 


31 


61 C3 — 


DF 


37 


6D 


Fl 


3F 


0E 


36 


4E 


61 D6~ 


09 


00 


00 


2D 


20 


3E 


17 


F5 


61 D8- 


BF 


35 


37 


2D 


2D 


4E 








ECR1TURE SUR DISQUETTE : BSAVE LOGO-CAR A$6000, L479 

VERIFICATION : Apres avoir tape la ligne suivante en mode direct, le resultat devra 
el re 36353 

T = a : FOR I = 24576 TO 25054 : T = T + PEEK(I) : NEXT : PRINT T 



LOGO. EG ILOR 



Vous n'etes pas oblige de titrer votre programme 
de cette maniere,., et dans ce cas, inutile de saisir 
cet embryon de fonts ! 



LDE-DERILLE 



60 - 


6 




— V- 


i e 


00 


52 


00 


9F 


00 


6668- 


C4 


00 


F8 


90 


4E 


01 


00 


08 


6010- 


2D 


2D 


2D 


2D 


2D 


35 


3F 


3F 


6018- 


3F 


3F 


3F 


37 


2D 


0D 


FE 


3F 


6620- 


2E 


6D 


FE 


3F 


2E 


6D 


2D 


35 


6028- 


3F 


FF 


3F 


2E 


6D 


2D 


F5 


1 B 


6030- 


IF 


3F 


2E 


6D 


FE 


3F 


211 


6D 


6838- 


4D 


49 


1 1 


3F 


3F 


3F 


3F 


3F 


6040- 


37 


2D 


2D 


2D 


2D 


2D 


35 


3F 


6043- 


3F 


3F 


3F 


3F 


6F 


49 


49 


49 


6050- 


09 


00 


2D 


2D 


2D 


2D 


2D 


35 


6058- 


3F 


3F 


3F 


3F 


3F 


37 


2D 


0D 


6060- 


4D 


49 


35 


FF 


DB 


FB 


3F 


2E 


6068- 


6D 


FE 


3F 


2E 


6D 


FE 


3F 


2E 


6070- 


6D 


4D 


2D 


2D 


3E 


3F 


FF 


FB 


6078- 


3F 


2E 


6D 


4D 


49 


35 


FF 


DB 


6080- 


FB 


3F 


2E 


6D 


4D 


49 


35 


3F 


6988- 


3F 


3F 


3F 


3F 


37 


2D 


2D 


2D 


6090- 


2D 


2D 


35 


3F 


3F 


3F 


3F 


3F 


6098- 


6F 


49 


49 


49 


9 


00 


00 


49 


60A0- 


2D 


2D 


FE 


3F 


2E 


6D 


FE 


3F 


66A8- 


2E 


6D 


FE 


3F 


2E 


6D 


FE 


3F 


6680- 


2E 


6D 


FE 


3F 


2E 


6D 


FE 


3F 


60B8- 


2E 


6D 


FE 


3F 


2E 


6D 


3E 


3F 


60C0- 


6F 


49 


01 


00 


2D 


2D 


FE 


3F 


60C8- 


2E 


6D 


FE 


3F 


2E 


6D 


FE 


3F 


60D9- 


2E 


6D 


FE 


3F 


2E 


6D 


FE 


3F 


60D8- 


2E 


6D 


FE 


3F 


2E 


6D 


4D 


49 



60E0- 


1 1 


3F 


3F 


3F 


3F 


3F 


37 


2D 


60E8- 


2D 


2D 


2D 


2D 


35 


3F 


3F 


3F 


60F0- 


3F 


3F 


6F 


49 


49 


49 


09 


00 


60FB- 


2D 


2D 


2D 


2D 


2D 


35 


3F 


3F 


61 00- 


3F 


3F 


3F 


37 


2D 


0D 


4D 


49 


6108- 


35 


FF 


DB 


FB 


3F 


2E 


6D 


«e 


61 10- 


49 


35 


FF 


DB 


FB 


3F 


2E 


60 


61 18- 


4D 


49 


35 


FF 


DB 


FB 


3F 


2£ 


6120- 


6D 


4D 


49 


35 


FF 


DB 


FB 


3F 


61 28- 


2E 


6D 


4D 


49 


35 


FF 


DB 


FB 


61 30- 


3F 


2E 


6D 


4D 


49 


35 


3F 


3F 


61 38- 


3F 


3F 


3F 


37 


2D 


2D 


2D 


2D 


61 40- 


2D 


35 


3F 


3F 


3F 


3F 


3F 


6F 


6148- 


49 


49 


49 


09 


00 


00 


2D 


2D 


6150- 


2D 


2D 


2D 


35 


3F 


3F 


3F 


3F 


61 58- 


3F 


37 


2D 


0D 


4D 


49 


35 


FF 


61 60- 


DB 


FB 


3F 


2E 


6D 


4D 


49 


35 


6168- 


FF 


DB 


FB 


3F 


2E 


6D 


4D 


49 


6170- 


35 


3F 


3F 


3F 


FF 


3F 


2E 


6D 


61 78- 


2D 


2D 


2D 


35 


3F 


3F 


3F 


FF 


61 80- 


3F 


2E 


6D 


0D 


2D 


15 


3F 


DF 


6183- 


IF 


3F 


2E 


6D 


4D 


29 


AD 


3F 


6190- 


DF 


IB 


IF 


3F 


2E 


6D 


4D 


09 


61 98- 


2D 


3E 


FF 


DB 


3F 


3F 


4D 


49 


61A0- 


49 


49 


01 


00 











ECRITURE SUR DISQUETTE : BSAVE LOGO.EGILOR, A$6000, L420 
VERIFICATION : Taper la ligne suivante, en mode direct. Resultat : 3541 9 
T = 0:FOR I = 24576 TO 24575 + 420 : T = T + PEEK(I) : NEXT : PRINT T 
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Cadres express 



N 



OUS avions publie, dans le numero 1 de TAA 
(page 64), un exemple de cadre express. 
Les efforts conjugues d'Yvan KOENIG et du 
sage NESTOR me permettent de vous presenter 
la suite (et peut-etre la fin ?) de ce chapitre. 
Notez que les cadres ainsi obtenus occupent tout 
I'ecran (24 lignes). 

Guy HACHETTE. 



CADRE. DEMO 



10 



TEXT : NORMAL s PRINT 
HR$ (21): HOME : PRINT 
NT " CADRE NUMERO 1 



CHR$ (12) ; C 
; PRINT : PRI 



It 



28 
30 
40 



50 



PRINT CHR$ <4)"BL0AD CADRE" 
CALL 768 

UTAB 3: HTAB 4: CALL - 198: PRINT 
"UNE TOUCHE SUP ";: GET R$: POKE - 
16368,0 

HTAB 3: PRINT "CADRE BLOQUE <NUMER0 
2)": HTAB 3: PRINT " 



ii 



60 
70 
80 
90 

100 



II If 



110 



PRINT 

PRINT CHR$ (4)"BL0AD CADRE . BLOQUE" 
CALL 768 

PRINT "VOUS EVOLUEZ MAINTENANT" : PR 
INT "A L'INTERIEUR DE UOTRE CADRE" 
PRINT : PRINT "DANS UN PROGRAMME EN 

BASIC"; PRINT " UTILISEZ PLUTOT CADR 
E. ROUTINE": PRINT : PRINT "POKE 6,32 

: CALL 768: CADRE INVERSE": PRINT " 
POKE 6,160 : CALL 768: EFFACEMENT" : 
PRINT "POKE 6,170 : CALL 768: ASTERI 
SQUE" 

PRINT : PRINT "IBLOAD CADRE. ROUTINE 
, POUR UN ESSAI": CALL - 998: CALL 
- 998 



Dans un programme en Basic,utilisez Cadre. rou- 
tine de la man i ere suivante : 

Cadre en inverse POKE 6,32 : CALL 768 
Cadre asterisques POKE 6, 170 : CALL 768 

Effacement (du cadre) POKE 6,160 : CALL 768 



CADRE 



0300- 


A9 


29 

mm 






LDA 

wmam maw 


£$20 




0302- 


D0 


03 






BNE 


$0307 

w *aw ^aam ^mm m 




0304- 


20 


8C 


FD 




J SR 


$FD0C 




0307- 


85 


06 






STA 


$06 




0309- 


A2 


16 






LDX 


£$16 




030B- 


8A 








TXA 






030C- 


20 


CI 


FB 




JSR 


$FBC1 




030F- 


A5 


06 






LDA 


$06 




0311- 


A0 


27 






LDY 


£$27 




0313- 


91 


28 






STA 


<$28) 


,Y 


0315- 


A0 


00 






LDY 


£$00 




0317- 


91 


28 






STA 


($28) 


,Y 


0319- 


CA 








DEX 






031A- 


D0 


EF 






BNE 


$030B 




031C- 

mm mm ma W 


A2 


27 






LDX 

^am WaT a 9 \ 


£$27 




031E- 


9D 


D0 


07 




STA 


$07D0 




0321- 


9D 

w -am 


00 

aar w 


04 




STA 


$0400 




0324- 


CA 








DEX 






0325- 


10 


F7 






BPL 


$031E 




0327- 


60 








RTS 






CAI 






BLOQUE 




0300- 


20 


58 


FC 


20 


0C FD 


48 68 




0308- 


48 


20 


F6 


FD 


A2 27 


86 24 




0310- 


68 


48 


20 


F6 


FD A5 


25 C9 




0318- 


17 


D0 


EC 


A2 


28 68 


9D CF 




0320- 

V* \J Ohm W 


07 


CA 


D0 


FA 


A2 28 


9D FF 




0328- 


03 


CA 


D0 


FA 


A9 02 


85 22 




0330- 


85 


20 


A9 


24 


85 21 


A9 17 




0338- 


85 


23 


20 


58 


FC 60 








iDRE 


- ROUTINE 




0300" 


A2 


16 






LDX 


£$16 




0302- 


8A 








TXA 






0303- 


20 


CI 


FB 




JSR 


$FBC1 




0306- 


A5 


06 






LDA 


$06 




0308- 


A0 


27 






LDY 


£$27 




030A- 


91 


28 






STA 


<$28),Y 


030C- 


A0 


00 






LuY 


£$00 




030E- 


91 


28 






STA 


<$28) , 


,Y 


0310- 


CA 








DEX 






0311- 


D0 


EF 






BNE 


$0302 




0313- 


A2 


27 






LDX 


£$27 




0315- 


9D 


D0 


07 




STA 


$87D0 , 


X 


8318- 


9D 


00 


04 




STA 


$0400, 


X 


831B- 


CA 








DEX 






031C- 


10 


F7 






BPL 


$0315 




031E- 


60 








RTS 







TREMPLIN MICRO 
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Cadre-I III G (en mode text) 



108 TEXT : PRINT CHR* <12); CHR* (2 
1): PRINT CHR$ (4VBL0AD CADRE. L 
INE" 

110 HOME : INVERSE : PRINT " EC RAN H 
LIN BASIC, PUIS LAN GAGE MACHINE " 
! NORMAL : GOSUB 260 

123 HOME : LIST 130,228: GOSUB 260 

130 CGLOR= 178 

140 HLIN S,39 AT 0: HLIN 9,39 AT 44: 
vLIN 0,46 AT 6s VLIN 8,46 AT 39 

145 s 

150 GOSUB 260 

160 HOME : CALL 768 

170 GOSUB 260 

180 POKE 769,160t CALL 768 

190 GOSUB 268 

200 POKE 769,255s CALL 768 

210 GOSUB 260 

229 POKE 769,170: CALL 768 

230 GOSUB 260 

240 FOR 1 = 866 TO 818: READ Js PORE 

I , J : NEXT ; HOME : CALL 306 
250 END 

260 CALL - 198 j POKE - 16368,9s WA 
IT - 16384,128,127; POKE - 1636 
8,0: RETURN 

270 DATA 169, , 1 33 , 58 f 1 69 f 3 , 133,59,1 
69,18,76,99,254 



EES lignes 130 et 140 du programme 
ci-contre vous montrent comment tra- 
cer — tnstanfanement, et sans se saucier 
de la licjne 24 un cadre de 24 X 40. 

Les memes lignes ont ensuite ete interpre- 
ters en langage machine. 

Vous obtiendrez I'effacement avec 
COLOR = 160. 

COLOR = 255 vous est soumis... pour vous 
montrer les limites de ce programme. 

En langage machine ; 

• $F8T9 (HLINE) trace une ligne horizontale dans 
la page OR. II faut que ; 

— A contienne le numero de la Mgne (O a 47) 

— Y le numero de la colonne-depart (0 — 39) 

— $2C te numero de la colonne-arrivee (0 — 39) 
Vous pouvez en deduire que Y est forcement^ 
inferieur 6 $2C 

* $F828 (VLINE) trace une ligne verticals 

— Y doit contenir le numero de la colonne (0 — 
39} 

— A le numero de la ligne de depart {0 — 47) 

— $2D le numero de la Ifgne d'arrivee (0 — 47). 
A doit done etre inferieur a $2D. 



BSAVE CADRE-LINE A$300, L$26 



0300- 


A? 


AA 




LDA 


£*AA 


Acc-umulateur charge avec 170 ($AA) 


0302- 


85 


30 




STA 


$30 


Le code de la couleur est stocks a I'adresse $30 


0394- 


A9 


27 




LDA 


£*27 


$27 (39) — numero de colonne-arnvee.,, 


0306- 


85 


2C 




STA 


*2C 


stocke dans $2C 


0308- 


A? 






LDA 


€*06 


A est mis a zero... 


030A- 


A3 






JAY 




... ainsi que Y 


0306- 


20 


19 


F8 


JSR 


*F819 


GOTO HLINE (A et Y sont detruits) 


030E- 


A0 


0@ 




LDY 


£$00 


Y est rerriis a zero... 


0318- 


A9 


2E 




LDA 


£*2E 


A est charge avec $2E (46) 


0312- 


20 


19 


F8 


JSR 


*F319 


GOTO HLINE (A et V sont detruits) 


0315- 


A? 


2F 




LDA 


£*2F 


A charge, avec $2F (47) ou $2E... 


0317- 


35 


2D 




STA 


*2D 


et stock e en $2D 


0319- 


A9 


00 




LDA 


£*00 


A mis a zero... 


031B- 


A3 






TAY 




ainsi que Y 


031C- 


20 


28 


F8 


JSR 


$F828 


GOTO VLINE (A est d^truit) 


031F- 


A9 






LDA 




A est rem is 6 zero... 


8321- 


A0 


27 




LDY 


€$27 


et Y 6 $27 (39) 


0323- 


4C 


28 


F3 


JMP 


$F828 


VLINE et retour au Bask 
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Vous avez ecrit 

a TREMPLIN MICRO 




• Tout d'ahord «Bonjour» et felicitations pour votre 
revue dont {'aspect pedagogique ne fait aucun 
doute* En ce sens, je me permets de vous demander 
conseil, car je me trouve en butte a un certain nom- 
bre de problemes que je n'ai pu resoudre. 
En void la liste : 

1 1 1 existe des cades Scran en LM, Mais comment 
afficher en Applesoft un caractere inverse seule- 
menf a portir du code ASCII (modifie ?), mais sans 
^instruction INVERSE ? 

2 En LAI, y a-t-il une instruction qui permette 
d'afficher un caractere sans deplacer par la suite le 
curseur (comme te fait I'instruction COUTi en 
$FDF0) ? Ceia me permettrait de tracer des cadres 
de 24 x 40 caracteres (cela se fait dans Disk 
Mucher). 

Je remarque d'autre part que tes deux programmes 
des pages 63-64 de Tremplin Micro n^l ont la partie 
inferieure des cadres en 23* ligne et non en 24* 
(problem? ineluctable du retour chariot et decalage 
vers le haut d'une ligne ?). tl faut noter page 64 une 
errevr dans le listing : mettre STA 06 et non IDA Q6 
en ligne 20, sinon la saisie ne peut etre chargee en 
06 ; le code correspondant etant par la suite : 
396 i 85 06, 

3 Comment passer du Bask au LM, une valeur 
negative (par exemple poker la valeur decimale 
-67) ? 

4 Je desire remplacer VTAB xx par POKE 37,xx-l 
dans te but de traduire un programme Applesoft en 
LM. car: VTAB Id 24, 

or Poke 37, Qd23 (comme la routine CV)> 
Mafheureusernent, it y a disfonctionnement f 6 
{'image du programme qui suit : 



10 


HOME 




20 


FOR U = 


1 TO 24 




POKE 36, 


U 


6d 


UTAB U 




70 


PRINT U; 




30 


NEXT 




90 


UTAB 1 s 


GET R$ 


110 


HOME 




120 


FOR U - 


TO 23 



130 


POKE 36 


,u 


146 


POKE 37 




156 


PRINT U 


■ 

i 


160 


NEXT 




1 70 


UTAB \ ; 


GET R* 



TJUI 




DEFOREST Fabian (CUCHY/SOUS/BOtS) 

Quelle avalanche de questions ! 

1, Vous ne pouvez afficher en mode inverse 
(sans I'instruction INVERSE) que par des 
POKES judirieusement places. II est indis- 
pensable de connaTtre les adresses des 
lignes de I'ecran (voir a ce sujet la fiche 
numero 4 de TM). 

2. Les cadres de la page 55 repondent a votre 
attente. On peut parfaiternent tracer un 
cadre de 24 lignes... en BASIC, comme 
ceci, par exernple ; 



5 
IB 



29 



30 



TEXT : HOME 



FOR I = I 
1; PRINT 
= 24 THEN 
INT "* n j: 
IF 1 < > 
AB 40 
NEXT 
HTA8 



TO 24 s VTAB 
IF 

FOR J = 
NEXT 
24 THEN 
PRINT 

POKE 2939J70 
2: PRINT ,IU 



2: HTAB 

1 = 1 OR I 

2 TO 39r PR 



VTAB I : HT 



VTAB 3s 



48 VTAB 3: HTAB 2 s GET R* 

3. Plus grande valeur positive, sur un octet : 
127 ($7F) 

Plus grande valeur negative : *1 28 ($80) 
Cest le bit 7 (qui est en fait le 8 e P puisque 
la serie commence a 0), le plus a gauche, 
qui est le bit de signe. II est a pour un 
nombre positif et a 1 pour une valeur 
negative, Je vous conseille, sur ce point 
(et sur beaucoup d'autres) I'excellent livre 
de A.P. Stephenson ; La Programmation 
du6502 (Dunod). 

Pour poker -7, il suffit de faire ; POKE x P 
256-7 (soit 249, ou $F9). 

SUITS DU COURRIER (PAGE SS) 



TREMPLIN MICRO 
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Vous avez ecrit 

a TREMPLIN MICRO 





10 

28 
30 
46 
50 



Le petit programme demo ci-apres devrait 
vous aider a mieux comprendre. 
Vous transmettez un nombre positif (plus 
petit que 128) a une routine en LM. 
Celle-ci transforme ce nombre en sa 
valeur negative, puis additionne les 
deux... plus 1. Devinez quel est imman- 
quablement le resultat ? 

HOME 

INPUT C: IF C > 127 THEN 18 
CALL - 998: PRINT C" = 
CALL 768, C 

PRINT " ADDITION DES DEUX + 
1 : H ;s CALL 794: PRINT : GOT 
20 



0309- 


28 


F5 


E6 


JSR 


$E6F5 


0383- 


8A 






TXA 




0304- 


85 


66 




STA 


$06 


0306- 


49 


FF 




EOR 


£$FF 


0308- 


18 






CLC 




0309- 


69 


61 




ADC 


£$01 


030B- 


85 


07 




STA 


$07 


036D- 


20 


DA 


FD 


JSR 


$FDDA 


0310- 


18 






CLC 




0311- 


E6 


06 




INC 


$06 


0313- 


A5 


06 




LDA 


$06 


0315- 


65 


07 




ADC 


$67 


0317- 


85 


08 




STA 


$88 


8319- 


68 






RTS 


■ 


031A- 


A5 


08 




LDA 


$08 


031C- 


20 


DA 


FD 


JSR 


$FDDA 


031F- 


68 






RTS 




4. Rempl 


acer 


les 


HTAB 


et VTAB par < 



POKES ne presente pas un grand interet 
(sauf en 80 colonnes, ou il faut d'ailleurs 
utiliser POKE 1403 ( x au lieu de POKE 
36,x). Votre POKE 37, U restera inoperant 
si vous ne placez pas, a la suite un CALL — 
990 ($FC22) qui va deplacer le curseur 
jusqu'a la ligne precitee. 

Nestor. 



• A quoi serf la touche — >| ? Je vous avoue que je 
n 'ai jamais pu I'u tiliser. 

• Peut-on employer, sur I' Apple He, le mini- 
assembleur de la djsquette 3.3 MASTER-SYSTEM ? Si 
oui, comment I'extraire de la disquette ci-dessus 
(listez S.V.P. les instructions/commandes necessai- 
res) et comment le charger sur une autre dis- 




quette ? Etant donne que vous avez affaire au 
neophyte des neophytes, soyez assez aimable pour 
lister en detail toutes les instructions, y compris la 
preparation de la disquette destination... 

M.G.M. (3 J 420 AURIGN AC) 



Alors la, pas d'accord ! Pourquoi ? simple- 
ment parce que vous ne ferez rien de votre 
mini-assembleur si vous ne consentez pas, au 
moins une fois, a lire les ouvrages (fort bien 
rediges) qui vous ont ete remis avec votre 
Apple He. Mais je vais tout de meme repon- 
dre partiellement a vos deux questions : 

1. La touche — >| est appelee touche TAB. 
Vous ne pouvez la tester qu'a la suite du 
GET. Exemple : 

GET R$ : IF CHR$(9) = R$ THEN... quelque 
chose 

CONTROLE I joue le meme role que la tou- 
che TAB. 

2. Pour utiliser le mini-assembleur de 
I'Apple, il convient de commencer par 
charger le BASIC INTEGER. Ensuite, proce- 
der ainsi : INT (le prompt du BASIC INTE- 
GER apparaTt) 

CALL — 2458 (le point d'exclamation s'affi- 
che... a vous de jouer ! ). 

Pour le reste, consultez le livre de Nicole 
Breaud-Pouliquen, LANG AGE MACHINE ET 
ASSEMBLEUR DU 6502, PSI EDITEUR. 



• Dans la routine ci-apres (N=850), tout se passe 
bien jusqu'a N=814, puis I'ordinateur ne me rend 
plus la main, et je suis oblige de taper un RESET 

FORI = 1 TON 
FOR J = 7 T07 
K = ASC(MID$(TA$(I),J,1)) 
NB(K—64) = NB(K — 64) + 1 
NEXT J 
NEXT I 



v 






Votre Apple s'accorde tout simplement le 
temps de faire le menage... en eliminant les 
valeurs successives de K... qui encombrent sa 
memoire. C'est un FRE(0) automatique. 
Accordez-lui une bonne minute de pause (par- 
fois davantage)... ou evitez de passer par le K 
intermediate, comme ceci : 

FOR I = 1 TO N : FOR J = 1 TO 7 : C (ASC 
(MID$ (M$(l), J, 1)) — 64) = C (ASC (MID$ 
(M$(l), J, 1)) — 64) + 1 : NEXT: VTAB 1 : HTAB 
1 : PRINT I : NEXT 
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* Pas trop de tests de logiciels... qui foisonnent por- 
touf (quand vous fes faites, donnez les prix). 

* Je dispose d r un Apple Ue avec carte 80 co tonnes 
etendue, de la souris et d'une carte super serie, 
J'oimerais savoir comment utiliser le$ 64 K supple- 
mental res de ma carte, et (Ignore tout des possfbili- 
tes de la carte super serie* Jene sai$ pas da vantage 
tirer parti de mon imprimante Image Writer, Je ne 
crois pas etre le seul a avoir ces cvriosites* 

* Vous avez parte de ProCODE : je ne I'ai trouve 
nulle part. Quant a ProDOS, H reste ohscur pour 
hi en des utiiisaieurs. 

P. O. (1 3008 MARSEILLE) 

tjjH Les deux derniers numeros de Tremplin Micro 
L— ^ ont du satlsfaire certaines de vos curiosites, 
mais nous serions reellernent des journalistes 
extraordinaire* si, instantanement, nous nous 
revelions capables de vous ecloirer sur tous 
les sujets evoques dans votre lettre. 
Image Writer pose en effet des problemes 6 
bon nombre d'utilisoteurs. Sa documenfation 
manque de clarte, bien que, comme routes les 
documentations Apple, elle soit tres bien rea- 
lise. 

Quand les auteurs de tefles brochures com- 
prendront que les usagers attendent plutot 
des EXEMPLES, que des explications, la situa- 
tion s'ameliorera... et ce n'esf pas vrai que 
pour Apple. 

II en va de meme pour la carte super serie 
(que nous ne connaissons d'ailleurs pas). 
A propos des prix des logiciels, il est bon de 
savoir que, lorsque nous donnons le prix d'un 
prod u it et J'adresse de son fabricant (ou de 
son tmportateur), I'article est considere 
comme une annonce publicitaire 1 
ProCODE est un produit de Version-Soft (19, 
rue Ganneron, 75018 Paris, Tel. 387.94.87). 
Une disquette Demo vous est encore proposee 
dans le present numero de T.M, 



• Bravo ! TREMPLIN MICRO, mats fat deux sugges- 
tions a vous faire : 

— Pourriez-vous creer une rubrique sur le deplom- 
bage et la protection des programmes ? 

— Et une autre apprenant d $e servir des utilitaires 
connus ? 

D. 8. (Aix-fvs-Bains) 



m 



Si je com p rends bien : nous expliquons com- 
ment copier un logiriel... puis comment utili- 
In copie sans meme photocopier la doc. 
Une ruse de Goupil (non r il n'y a pas d'allusion 
a. ce micro) ? 

Mais dites-moi, ami Dany, pourquoi vouloir un 



article sur la ^protection des programmes*! ? 
Vous n'allez tout de meme pas proteger les 
v6fres,., et copier ceux des autres ? 
Bon, je sais : les logiciels sont chers et les etu- 
dionts (notamment) pauvres, mais il faut 
absolument comprendre (et meme lutter) 
pour que d autres jeunes — ceux qui vivent de 
LEURS LOGICIELS — puissent cueiilir les fruits 
de leurs longs efforts. 

D'accord ? la discussion est ouverte. Person- 
nellement, je ne suis ni juge ni partie, mais 
plutot temoln, un temoin qui, neanmotns, a sa 
petite idee sur la question*.* et vous Texpose 
franchement : 

Tout ce temps inutilement passe a deplomber 
des logiciels ne seraif-il pas mteux employe a 
tenter d'en creer d'autres, meilleurs ? 
Et comme j'envie un peu les jeunes genies qui 
jonglent avec fes precieux octets, je les crois 
capables, precisement dans le domains de la 
creation, de realiser des chases assez 
extraordinaires* 

Et excusez-moi pour cet acces de franchise 
(pas tellement commercial, mais qu'im- 
porte ?}, c est tout de meme mieux que de 
dire du mal de son voisin, non ? 



Q*\ mi c rot el 



NOUVEAU BUREAU 



Le Conseil d'Administration de la FEDERATION NATIO- 
NALE des clubs MICROTEL, vienl de designer son nouveau 
bu reau . 

Aupres de M. Laurent VIROL, reconduit comme President, 
on trouve Mm© Mafie-Josee VARLOOT (secretaire), M. 
Claude PERDRILLAT (tresorier), M. Michel DAPPE (vice- 
president} ei M. Claude PRU^NET qui assure la direction 
technique, assiste de Jean SAQURT et d'Yves-Jacques 
VERNAY. 

Rappelons que le Conseil d'Administration est, par ail- 
leurs, compose de : MM. Alain BELLEUVRE (ADEMIR), Ben 
nard BLUMENTHAL (Delegue General a la Fondation 
X2000), Antoine DUCRET (Federation MICROTEL Lorraine), 
Thierry GAUDIN (responsable du Centre de Prospective et 
devaluation du Minislere de l lndustrie et de la Recher- 
che), Serge GEORGE (MfCROTEL-Ciub Vanves), Marc 
LEVAILLANT (AMII), Roger MERLE (Amiposte), et Julien 
SPIESS (Federation MICROTEL M" de France), 
La Federation Nationals compte, apres 7 ans d'existence, 
plus de 15000 adherents au trovers de ses federations 
regionales et associations affiliees seclorielles. 
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Miiiiiia 



Vous avez ecrit 
aTREMPLIN MICRO 




TM 



• J'apprecie voire revue, cependant je souhaiterais 
pouvosr y trouver des programmes d'enseignement, 
et de divertissement utile. 

Lorsque je vois les jeunes ou rnoins jeunes utiliser le 
"micro" pour de$ jeux d'arcades et autres... qui sont 
des merveilles de graphisme et d'expressions musi- 
cafes, je comprends qu'ils ne soient pas tres interes- 
ses par fes pauvres (en graphismej son.,.) program- 
mes "EAQ". 

Aiors, par I'interme'diaire de voire revue, ne serait- 
il pas possible d'avotr des programmes de produc- 
tion de sons, musique synth&ti$4e t de graphisme, 
d'animation, etc. 

D'autre part, pourriez-vous m'indiquer comment 
integrer dans un programme Basic Applesoft des 
documents (pages d'ecran.*,) constitues avec MOU- 
SEPAINT et egalement PRINTSHOP ? 
Pourriez-vous commenter plus en detail vas pro- 
grammes ? Pour un debutant, comme moi, cela per- 
metirait d'apprendre a mieux programmer. 

C.S. (17250 $t-PORCHAtRE) 



A vous (entre autres,*,) de montrer aux jeunes 
que la programmation constitue a elle seule un 
jeu ! Nous sommes persuades que plusieufs Lec- 
irices ou Lecteurs de TM* ont deja resolu des 
problemes similaires aux vdtres, notamment en 
ce qui concern© MOUSEPAINT. 

Commentaires ie nos programmes : On ne con- 
seillera jamais assez aux debutants de lire un 
bon abc du Basic et de I'Applesoft... et d'en 
essayer tous les exemples, Ensuite, pour bien 
comprendre un programme copie dam une 
revue (ou dons un livre), i! est netessaire de le 
taper dans Tordre ou il sera execute, meme si 
cette solution paraft irrationnelle. Ressasser des 
explications qui sont methodiquement classees 
dans des recueils specialises ne rend pas vrai- 
ment service aux debutants, Tous les pedago- 
gues savent quil est preferable d'inciter un 
eleve a rechercher lui-meme, dans le diction- 
naire, Torthographe des mots, plutot que de la 
lui dormer, aussi souvent qu'il la demande. Nous 
avons, ici, lafaiblesse d'estimer nos Lecteurs et 
Lectrices et nous desirons les amener a aimer la 
programmation pour ce qu'elle est : un jeu, bien 
sur r mois egalement un exercice intellectuel 
dont on reconnaTtra un jour les bienfaits. 

D'aucuns vont encore m'accuser de me prendre 
(trop) au serieux. Quelle erreur ! G.-H. 



CRAPH.MEN 



(page 9) 



Si vous monquez d'ex- 
perience, vous pouvez 
taper, sauvegarder et 
controler cette routine 
comme indique ci- 
contre. 

Veillez a ne pas con- 
fondre les et les O, 



CONTROLE 



SCALL-151 

*306 :26 53 FC A2 2C A9 86 85 25 A9 @A 85 

24 20 22 FC BD 08 93 C9 96 F0 06 20 F0 
FD E8 D0 F3 EG B2 F0 7 E6 25 E6 25 ES D 

El 26 E4 FB 60 

*32C sA0 A6 A0 AG1 A© 20 @D 20 05 26 0E 28 

15 20 60 31 A@ D3 CI CP D3 C9 C5 A0 C4 
C5 D3 A0 C4 CF CE CE C5 C5 D3 00 32 A0 C 

1 C6 C6 C9 C3 C8 CI C7 C5 A0 C4 D5 A0 C7 
D2 CI D© CQ 00 33 AG CD C5 CD CF D2 C9 

D3 CI D4 C9 CF CE A0 C7 D2 CI D0 C8 00 

*37A:34 A0 CD C5 CD CF A0 C4 C5 D3 A0 C4 
CF CE CE C5 C5 D3 00 35 A0 C5 C4 C9 D4 

C9 CF CE A0 C4 D5 A0 C7 D2 CI D0 C8 00 3 

6 AO C6 C9 CE A6 C4 C5 A0 D0 D2 CF C7 D2 
CI CD CD C5 ©0 00 68 A8 68 A6 DF 9A 48 

98 48 60 80 

BSAVE GRAPH .MEN ,A$300 , L*BE 

§T=0 :F0RI=768T0769+1S9:T=T+PEEK< I > : NEXT : 
? : ? "TOTAL— CONTROLE= T 

TOTAL- C0NTROLE= 29649 
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INDEX des articles deja parus 



Additions binoires (p. 19)...., , , 4H , N° 2 

Jau a ida clique pour apprandro rs composer en binalr* 

Afftchage accelere en langage machine (p. 63).,, N° 1 

Amortissemenl (p, 38)... ♦<..„♦ N° 1 

Avec ProCODE (p. 52} N D 1 

Boucles simples en langage machine (p, 50)..., 1 

Boutabout (p. 30) t4 tt r .,.„„ |\J° 3 

Rniihni; LM |)i;nnrH(mi de mellre baut 6 haul douw programmQj an Bosk 

Carte langage {Fiche 3) (p. 41) ........ N« 3 

Charobio a decrypter (p, 10) .,.,„ N° 2 

Jeu danl la jalglion a poru dans le numera 3 

Copie d'e"cran avec carte 80 colonnes (p. 40) „„ N° 1 

Cryptotexte [p. 13) N° 3 

Pour co-da flu ducodnr A volonFe (soltMicn du cnto/abro du numero 2) 

Creer des ecrans sur 80 colonnes (p. 3)...,„,„ N D 3 

Uliliiaire doni vout Eoffli un utOgj& in-lsnsif 

Creez vos scrans en vous amusant (p, 17) + , lllt , N° 1 

Raccourcissei programmes en memorisonl, iur la disquella. I*j 
4crom do preienlolian 

Datez vos programmes en ProDOS (p„ 31 ) N° 3 

De bans livres h et en francais (p, 61 ) N° 3 

Oe nouvelles perspectives pour vos histogram 

mes (p. 30)....,„ , n° 1 

Un programme utililoire Ind I spa n sabl p 

Des octets en deplacement (p. 26) N* 1 

Utilises mfceux la memoiru auxmarire do voTre carle SO c<rignnss 

Dessine-moi un cercle (p. 47) „.,....„. N° 3 

Deux trues pour voire Apple (p. 40)., t , N° 2 

Disquettes a votre nom [p. 6) M c 1 

Perssnnalinoz vos disquell-es en DOS 3,3 

Oissequer un nombre [p. 38) . ... N° 3 

Double listage en 80 colonnes [p. 11) N° 2 

Basic el laiingrjasr mathine 

Decouvrez f'assembleur avec Madeleine Hade (p. 15), N° 3 
Ecrans condenses [p. 36) N° 3 

Memfi r i i or . . . I'essenliel et eianomls&r lot ockli 

Ecrire en page 2 [HGR2) {p. 25) , H° 1 

Ecriture sur pages graphiques (p, 54) 3 

Programme do Robert Fausrge. Prafeiseur ev Lyeoo Thwart de Marseille 

Eifacement d'ecran par la gauche (p. 62) , N° 1 

Evidemment quelle vous interesse,, H la memoire de 

voire Appfe ! (p, 42) N° 1 

Fichiers programmes (Fiche 1) [p, 34) , M . N e 1 

Fichiers EXEC [Fiche 1) (p. 34) N° 1 

Gribouille (p, 3) ISP 2 

Prisenhation de l origlnal Hailomeni do 1eMla d«r Madeleine -Hade 

Generateur de programmes (p. 33).., N° 3 

UN i In i re f-lJrJnl nulurriuii^umrifMil tin pr-O gramme de sais-io de (JfJnntni 

Hexadecimal ou decimal, et vice versa (p, 44) N° 1 

HTAB en 80 eolonnes (p. 48) M° 1 

Imprimontes et graphisme (p. 56).. N° 2 

Imprirnez des I i stages formotes de vos program- 
mes (p. 27) N° 2 

Edile* c-arrectemen t voj aTieillnurf programmHi 

Inversion de HGR1 ou HGR2 (p. 37) r M° 1 

Jeu (erreur) (p, 45) I 

L'envers ne vout pas l endroit (p. 8).. t N° 1 

J*u simplff, ol am e-li arable 

La fenelre (Fiche 1} (p, 33) N° 1 

La page zero de I 'Apple He (Fiche 1 ) (p. 33) N* 1 

La personne X (p. 17),„. 6 N° 3 

Jh>u faglqud dldimenlaire 

Le curseur {Fiche 1) [p. 33) 1 

Us caracleres «souris)> de f'Appfe lie (p, 34) N° 2 

Les fichiers aleotoires (p, 15), „ „, N° 2 

EnrwrjiilCEirneais de Tablle lixv (inillolion) 

t.es nombres decinnaux et votre micro (p. 16) M° 1 

6! 



Les variables dam lo memoire de I'Apple [p, 46) N° 3 

Iriisinii&n 6 I'asi^ombleiff 

LEgnes DATA ou lignes de Pokes (p. 55) M° 3 

List avec ( ampersand [p. 48), t ,.„ ♦♦„.„.„..., N° \ 

Listage et edition en tangage machine (p ( 14), N° 1 

(JliSJlalrrr forf pratique r 

listoge<ontr6le d'un f]chier«T» [p. 44),,, N° 2 

Logic-grilles (p. 57).,, t „ ,..„..„„.„ 1 

Jeu viiuel 

Ma chere vieille pomme (p, 41). ..„„.., |\|o ] 

Majuscules en inverse [p. 32) » n q 3 

Une raulina permellont d'olfkha-r wne ligns dont teules t*t majuscules 
icnr- On invcrsp, prjr Y. Koertirj 

Onerr Goto (p. 3B) fjo 2 

Ouest-Esl (p. 38) fgo 3 

P»1ll jau ftagraphique en mode Tex) 

Ouvrez Tceil ! (p T 52) , n d 3 

JqU ■ ■ -II. -I .ilh - i-i Oi.il i 

Pairou impair avec quelques octets [p, 35) M° 2 

Une polile dlude dts ncmbres aheailojrvi,.. pour le elafclr 

Partez en voyage avec Max (p. 12). , N° 3 

PreserUollon du lagiciel Ma* the Globs Trofter 

Plus loin avec l ossembleur (p. 39) N° 2 

Pokes utiles (p. 5) ....... N° 1 

Pouroublier le jeu du pendu (p, 32) N° 2 

Une solulian : le jeu d& I hnmino libre 1 

Print using [p. 48) N° 1 

Programme en EXEC (Fiche 1) (p, 34), M° 1 

Programmer ? Bien sur que cela en vaut la peine ! 

(P^ 39)„„ N° 1 

ProDOS et la carte langage (p. 43) N° 3 

ProDOS et vous (Ram, Catalog, Run et Brun) (p. 44),... N° 3 

Que va-t-il se passer ? (p, 54) N° 1 

Quelques notes pour votre Apple [p. 51) ,„ M . M° 3 

Soisie avec tri immediat (p. 49) , N° 1 

Saisie d un texts, suivie de son affichage (p. 45). t N° 3 

Initiallon a I 'ass-em bl ogr 

Saisie LM assistee (p. 48) 3 

Utililalre decline a vous simpllFier la via 

SoustractSon en langage machine (p. 43),..,,,,,, N° 2 

La suils de t'lnltlolJon b I'assQmbleur 

Special Bonjour (p. 3),,. , N° i 

Tracer un cadre en longoge machine (p. 64) N° 1 

Transfert d'un ecran de 80 colonnes en memoire c*Ui<i- 

liaire (Fiche 2) (p. 41) , N c 2 

Un* Irchd trtdisponiDbre 

Transfert d'ecrans texte (Fiche 3) (p. 42), N° 3 

Un accessoire utile : fe magnetophone (p, 31). N° 2 

Un certain jour de la semaine (p. 12) N° 1 

Qgal jriur utci vbji nitm) ? 

Un drive pour 1 500 F ? Banco ! [p. 46) N° 2 

Fojurquat poysr votre molerlHl au prix larl ? 

Un moven de savoir si un fichier existe (p. 36),,,, N° 1 

Une petite revision d anglais (p, 28) M Q } 

La. pramlera la;on |i vou» di'ecrire hi luivontes !] 

Valeur ASCII apres GET (p, 48) N° 1 

Visublocs (p. 21) N° 3 

Un gres marceau.,, aa»r unn r»auvoll? opprocbe d une reprssenialien 
graphl^uia da* <hlflr«s 

Vos chiffres vafent bien un from age ! (p. 49) H° 2 

la suire logique des histogrammes, avec une eorlaln* eonrtpallfaJIdto 

Vos menus a la carte (p, 5) , N° 2 

En Bask el langage machErifi,,, pour un ollichagO ijli/.i-rfipido 

Vaus ete£ au courant, mois cela vous coute combien ? 
(p, 46) , N* 1 

PellP ulililalre de gaiUon. p^rtgnnallo 

Vousovez emprunte ? (p. 27) N° 1 

Vous dites addition ? (p. 51) N° 1 

Initiation au Tangage machinn 
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MICROSONDAGES 



Merci de bien vouloir repondre d ces questions : 



1. Possedez-vous le numero 1 de Tremplin Micro ? 

2. Possedez-vous le numero 2 de Tremplin Micro ? 

■ 

3. Avez-vous dejo commande une disquette ? 



Bulletin de commande et d'abonnement 



Norn Prenom 



Adresse complete 
Code postal 



Ville 



LES 

(a condition de 



posse 



FONCTIONNENT 
der une version Apple de ce SYSTEAAE D'EXPLOITATION) 





Abonnement a 5 numeros (un an) : FRANCE 


150 F 




DISQUETTE de TREMPLIN MICRO N°l (lie et lie) 


105 F 




DISQUETTE de TREMPLIN MICRO N°2 (lie et lie) 


105 F 




DISQUETTE de TREMPLIN MICRO N°3 (lie et lie) 


105 F 




DISQUETTE de TREMPLIN MICRO N°4 (lie et lie) 


105 F 




NUMERO 1 DE TREMPLIN MICRO 


30 F 




NUMERO 2 DE TREMPLIN MICRO 


30 F 




NUMERO 3 DE TREMPLIN MICRO 


30 F 




NUMERO 4 DE TREMPLIN MICRO 


30 F 




DISQUETTE DEMO DE ProCODi _J 


25 F 



Participation aux frais d'envoi (gratuit pour les abonnes) + 10 F 



Numero d'abonne ou de client : 



Total a payer F 



Merci de libeller votre reglement a I'ordre de TREMPLIN MICRO / Editions JIBENA 
Mode de reglement choisi : O Cheque D Mandat-lettre O Carte Bleue 




VISA 




N° de votre Carte Bleue 

Date d'expiration | 

Montant 6 ddhiter 



Signature (obligatoire) 



OUI 






NON 








OUI 






NON 








OUI 






NON 





Bulletin a retourner a : TREMPLIN MICRO — Senille — 86100 CHATELLERAULT 
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Gil/ -Hxl KUfc pense a vos loisirs ! 
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